Unbreak these programs after Unicode IO support was added
authorSimon Marlow <marlowsd@gmail.com>
Mon, 29 Jun 2009 09:14:26 +0000 (09:14 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Mon, 29 Jun 2009 09:14:26 +0000 (09:14 +0000)
Set binary mode on Handles appropriately.

real/compress/Main.hs
real/compress2/Main.hs
real/fulsom/Main.hs
real/veritas/Main.hs

index e1774cd..4f9a571 100644 (file)
@@ -16,10 +16,13 @@ module Main (main) where
 import Defaults   
 import BinConv   -- binary conversion routines
 import Encode     -- coding routine
+import System.IO
 
-
-main = getContents >>= \ inp ->
-       putStr (compress inp)
+main = do
+  hSetBinaryMode stdin  True
+  hSetBinaryMode stdout True
+  inp <- getContents
+  putStr (compress inp)
 
 {- To compress a string we first encode it, then convert it to n-bit binaries
  - convert back to decimal as ascii-bit values and then to characters
index 6387389..6c143d0 100644 (file)
@@ -7,9 +7,13 @@ where
 
 import Encode
 import WriteRoutines
+import System.IO
 
-main = getContents >>= \ i ->
-       putStr (compress i)
+main = do
+  hSetBinaryMode stdin  True
+  hSetBinaryMode stdout True
+  i <- getContents
+  putStr (compress i)
            
 -- The output is given by a magic header consisting of two fixed numbers,
 -- and a third representing the maximum number of bits used per code and
index 46ca81d..9d282ca 100644 (file)
@@ -32,6 +32,7 @@ import Matrix
 import Patchlevel
 
 import System
+import System.IO
 
 main = do
     argv <- getArgs
@@ -39,6 +40,7 @@ main = do
        n = case argv of
              [a] -> read a
              _   -> 7
+    hSetBinaryMode stdout True
     putStr (picture n)
 
 picture n = go n pic
index 59b40da..3b57e11 100644 (file)
@@ -36,11 +36,14 @@ import Tags
 
 import Parse
  
+import System.IO
 
 
 --proof_edit : string list * string list -> unit 
 
 main = do
+    hSetBinaryMode stdin  True
+    hSetBinaryMode stdout True
     ins <- getContents
     putStr (main' ins)