Fix mandel in slow mode
authorIan Lynagh <ian@well-typed.com>
Wed, 12 Dec 2012 01:43:03 +0000 (01:43 +0000)
committerIan Lynagh <ian@well-typed.com>
Wed, 12 Dec 2012 01:43:03 +0000 (01:43 +0000)
spectral/mandel/Main.lhs
spectral/mandel/mandel.slowstdin
spectral/mandel/mandel.slowstdout

index b0e5496..9c3e7da 100644 (file)
@@ -5,7 +5,8 @@ import Mandel
 import PortablePixmap
 import System.IO
 
-main =  getContents >>=                                 \ userInput      ->
+main =  hSetBinaryMode stdout True >>
+        getContents >>=                                 \ userInput      ->
         readNum "Enter min x  = " (lines userInput) $   \ minx input     ->
         readNum "Enter min y  = " input $               \ miny input     ->
         readNum "Enter max x  = " input $               \ maxx input     ->
index df5bb42..2d8d6d7 100644 (file)
Binary files a/spectral/mandel/mandel.slowstdout and b/spectral/mandel/mandel.slowstdout differ