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