diff --git a/IncludeFilter.hs b/IncludeFilter.hs
index 00d209b..21b8338 100644
--- a/IncludeFilter.hs
+++ b/IncludeFilter.hs
@@ -73,12 +73,9 @@ stripPandoc p =
     Right (Pandoc _ blocks) -> blocks
 
 fileContentAsString :: String -> IO String
-fileContentAsString file = do
-  let handle = openFile file ReadMode
-  fmap (`hSetEncoding` utf8) handle
-  !contents <- fmap hGetContents handle
-  fmap hClose handle
-  contents
+fileContentAsString file = withFile file ReadMode $ \handle -> do
+  hSetEncoding handle utf8
+  hGetContents handle
 
 fileContentAsBlocks :: String -> IO [Block]
 fileContentAsBlocks file = do