Unbreak these programs after Unicode IO support was added
[nofib.git] / real / compress / 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