Fix for 6.12: set binary mode on stdout
authorSimon Marlow <marlowsd@gmail.com>
Mon, 14 Sep 2009 13:05:58 +0000 (13:05 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Mon, 14 Sep 2009 13:05:58 +0000 (13:05 +0000)
parallel/mandel/Main.lhs

index a054332..6b5c181 100644 (file)
@@ -13,6 +13,7 @@ main =        do
       [screenX,screenY]     = map read [screenX_,screenY_]
       limit                 = read limit_
 
+  hSetBinaryMode stdout True
   putStr (show (mandelset minx miny maxx maxy screenX screenY limit))
 
 readNum::(Num a, Read a) => String -> [String] -> (a->[String]->IO ()) -> IO ()