From: Matthijs Kooijman <matthijs@stdin.nl>
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?p=matthijs%2Fprojects%2Ffpprac.git;a=commitdiff_plain;h=HEAD

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
 	}