[commit: nofib] master: Fix mandel in slow mode (890caa4)

Repository : ssh://darcs.haskell.org//srv/darcs/nofib

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/890caa4077655494f83fa3b6670f6d99d8c58744

>---------------------------------------------------------------

commit 890caa4077655494f83fa3b6670f6d99d8c58744
Author: Ian Lynagh <[email protected]>
Date:   Wed Dec 12 01:43:03 2012 +0000

    Fix mandel in slow mode

>---------------------------------------------------------------

 spectral/mandel/Main.lhs          |    3 ++-
 spectral/mandel/mandel.slowstdin  |    2 +-
 spectral/mandel/mandel.slowstdout |  Bin 67602 -> 67602 bytes
 3 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/spectral/mandel/Main.lhs b/spectral/mandel/Main.lhs
index b0e5496..9c3e7da 100644
--- a/spectral/mandel/Main.lhs
+++ b/spectral/mandel/Main.lhs
@@ -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     ->
diff --git a/spectral/mandel/mandel.slowstdin b/spectral/mandel/mandel.slowstdin
index a885358..dd2508d 100644
--- a/spectral/mandel/mandel.slowstdin
+++ b/spectral/mandel/mandel.slowstdin
@@ -4,4 +4,4 @@
 2.0
 150
 150
-256
+255
diff --git a/spectral/mandel/mandel.slowstdout b/spectral/mandel/mandel.slowstdout
index df5bb42..2d8d6d7 100644
Binary files a/spectral/mandel/mandel.slowstdout and b/spectral/mandel/mandel.slowstdout differ