summaryrefslogtreecommitdiff
path: root/Utility/Misc.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-03-09 19:08:10 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-03-09 19:08:10 -0400
commitd6e77595ba45762b3c2dfdcd47a2d6b5b70154ae (patch)
tree896615a59c8f67f3bfec97c55616b7e59017927b /Utility/Misc.hs
parent789254747bceeaac004236275a6c1906f859945a (diff)
factor out Utility.FileSystemEncoding
Diffstat (limited to 'Utility/Misc.hs')
-rw-r--r--Utility/Misc.hs8
1 files changed, 0 insertions, 8 deletions
diff --git a/Utility/Misc.hs b/Utility/Misc.hs
index 9c284c826..3ac5ca5c0 100644
--- a/Utility/Misc.hs
+++ b/Utility/Misc.hs
@@ -9,14 +9,6 @@ module Utility.Misc where
import System.IO
import Control.Monad
-import GHC.IO.Encoding
-
-{- Sets a Handle to use the filesystem encoding. This causes data
- - written or read from it to be encoded/decoded the same
- - as ghc 7.4 does to filenames et. This special encoding
- - allows "arbitrary undecodable bytes to be round-tripped through it". -}
-fileEncoding :: Handle -> IO ()
-fileEncoding h = hSetEncoding h =<< getFileSystemEncoding
{- A version of hgetContents that is not lazy. Ensures file is
- all read before it gets closed. -}