From 3ebd17424d39752ff46557302258b93efc20f2ea Mon Sep 17 00:00:00 2001 From: Matthijs Kooijman Date: Mon, 24 Aug 2009 22:09:43 +0200 Subject: [PATCH] Make testProg produce readable (non-overlapping) output. --- FPPrac.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 } -- 2.30.2