From: Matthijs Kooijman Date: Mon, 24 Aug 2009 20:09:43 +0000 (+0200) Subject: Make testProg produce readable (non-overlapping) output. X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=HEAD;p=matthijs%2Fprojects%2Ffpprac.git Make testProg produce readable (non-overlapping) output. --- diff --git a/FPPrac.hs b/FPPrac.hs index 2a67b6e..306f048 100644 --- a/FPPrac.hs +++ b/FPPrac.hs @@ -93,7 +93,7 @@ data TinaProgram = forall s. Main testProg = Main { initialState = 1 , initialRequests = [GfxText red (pt 0 0) "foo", GfxText blue (pt 100 100) "bar"] - , eventHandler = \s e -> (s+1,[GfxText green (pt 50 50) $ show (s,e)]) + , eventHandler = \s e -> (s+1,[GfxText green (pt 50 (50 + 10 * s)) $ show (s,e)]) , windowWidth = 200 , windowHeight = 200 }