@@ -85,7 +85,7 @@ hPutStrLn :: Handle -> String -> IO ()
85hPutStrLn h s = hSetEncoding h utf8 >> IO.hPutStrLn h s
85hPutStrLn h s = hSetEncoding h utf8 >> IO.hPutStrLn h s
87hGetContents :: Handle -> IO String
87hGetContents :: Handle -> IO String
88−hGetContents = fmap toStringLazy . BL.hGetContents
88+hGetContents = fmap toString . B.hGetContents
89-- hGetContents h = hSetEncoding h utf8_bom
89-- hGetContents h = hSetEncoding h utf8_bom
90-- >> hSetNewlineMode h universalNewlineMode
90-- >> hSetNewlineMode h universalNewlineMode
91-- >> IO.hGetContents h
91-- >> IO.hGetContents h