From 0bb9bf092b154496005615ac148512d13ed5ec31 Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Thu, 16 Aug 2007 05:31:32 +0200
Subject: -Wall police

darcs-hash:20070816033132-9c5c1-8c2ff33c2b52da9b5029f327adaf99a1c55a96c0.gz
---
 Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Main.hs')

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
-- 
cgit v1.2.3