Use no encoding for the standard output.

	* src/Main.hs (main): Here.

ChangeLog

+2012-05-14  Roland Levillain  <roland@lrde.epita.fr>
+
+	Use no encoding for the standard output.
+
+	* src/Main.hs (main): Here.
+
 2012-03-07  Roland Levillain  <roland@lrde.epita.fr>
 
 	Improve the build system.

src/Main.hs

@@ -3,7 +3,8 @@ where
 
 import System.IO (Handle, IOMode (ReadMode), BufferMode (LineBuffering),
 		  stderr, stdout, openFile,
-		  hGetContents, hClose, hPutStr, hPutStrLn, hSetBuffering)
+		  hGetContents, hClose, hPutStr, hPutStrLn, hSetBuffering,
+		  hSetBinaryMode)
 import System.Environment (getArgs)
 import System.Exit (ExitCode (ExitSuccess, ExitFailure))
 import System.Posix (exitImmediately)
@@ -139,6 +140,7 @@ main =
        case input of
             (Just input) -> do hSetBuffering stderr LineBuffering
 			       hSetBuffering stdout LineBuffering
+			       hSetBinaryMode stdout True
 			       handle <- openFile input ReadMode
 			       text <- hGetContents handle
 			       toks <- scanM text