Revise fileContentAsString encoding (issue #2)

steindani · May 28, 2017 · 27a7ccb · 27a7ccb
1 parent 913ca87
commit 27a7ccb
Showing 1 changed file with 3 additions and 6 deletions.
diff --git 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