summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDon Stewart <dons@cse.unsw.edu.au>2007-08-16 05:31:32 +0200
committerDon Stewart <dons@cse.unsw.edu.au>2007-08-16 05:31:32 +0200
commit18e57dafd1ff54e9532f5ab94afcb3e647842750 (patch)
treebd55e9e003d0d33ccbc956cccaf8c8951c617bba
parentce6aa20397a878dad967740e2240fe538d8cae6c (diff)
downloadmetatile-18e57dafd1ff54e9532f5ab94afcb3e647842750.tar
metatile-18e57dafd1ff54e9532f5ab94afcb3e647842750.zip
-Wall police
darcs-hash:20070816033132-9c5c1-8c2ff33c2b52da9b5029f327adaf99a1c55a96c0
-rw-r--r--Main.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Main.hs b/Main.hs
index 7882291..d7ce8c9 100644
--- a/Main.hs
+++ b/Main.hs
@@ -194,7 +194,7 @@ handle e@(ButtonEvent {ev_event_type = t})
Nothing -> broadcastMessage e
-- handle motionNotify event, which may mean we are dragging.
-handle e@(MotionEvent {ev_event_type = t, ev_x = x, ev_y = y}) = do
+handle e@(MotionEvent {ev_event_type = _t, ev_x = x, ev_y = y}) = do
drag <- gets dragging
case drag of
Just (d,_) -> d (fromIntegral x) (fromIntegral y) -- we're dragging