Commit 6ee7ad91 authored by Roland Levillain's avatar Roland Levillain

Use no encoding for the standard output.

	* src/Main.hs (main): Here.
parent c247ff1a
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.
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment