Repository : ssh://darcs.haskell.org//srv/darcs/nofib On branch : master
http://hackage.haskell.org/trac/ghc/changeset/890caa4077655494f83fa3b6670f6d99d8c58744 >--------------------------------------------------------------- commit 890caa4077655494f83fa3b6670f6d99d8c58744 Author: Ian Lynagh <i...@well-typed.com> 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 _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc