X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fprojects%2Ffpprac.git;a=blobdiff_plain;f=FPPrac.hs;h=306f048001dca25e62b2864c98e2b01fda06af78;hp=2a67b6e7d9a9f1904a2b0ff2e93d1357b57c3b5f;hb=HEAD;hpb=eda52aa9eeffdf431637caafca573e3f1ef8d50d

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
 	}