diff options
author | Joey Hess <joey@kitenet.net> | 2012-02-01 16:05:02 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-02-01 16:16:08 -0400 |
commit | 3d49258e5bed4d9a6ec9e24ddb776f277542664b (patch) | |
tree | 89af32cbdde6a5e672c357c24fe281337e2a133a /Messages.hs | |
parent | 6c64a214fa569dcf1fa8cc4c79efd90d01ff5705 (diff) |
attempt at a quick, utf-8 only fix to the ghc 7.4 problem
If you have only utf-8 filenames, and need to build git-annex with ghc 7.4,
this will work. But, it will crash on non-utf-8 filenames.
Diffstat (limited to 'Messages.hs')
-rw-r--r-- | Messages.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Messages.hs b/Messages.hs index 1294e44f6..844c6bfc5 100644 --- a/Messages.hs +++ b/Messages.hs @@ -128,9 +128,9 @@ showRaw s = handle q $ putStrLn s - - NB: Once git-annex gets localized, this will need a rethink. -} setupConsole :: IO () -setupConsole = do - hSetBinaryMode stdout True - hSetBinaryMode stderr True +setupConsole = return () + --hSetBinaryMode stdout True + --hSetBinaryMode stderr True handle :: IO () -> IO () -> Annex () handle json normal = Annex.getState Annex.output >>= go |