Cleanup

darcs-hash:20070810213940-a5988-7baa041cdf9a07038cb36645f314eb48bb8423aa

1 files changed, 5 insertions, 5 deletions

diff --git a/Main.hs b/Main.hs
index fc12bce..1716b60 100644
--- a/Main.hs
+++ b/Main.hs
@@ -189,16 +189,16 @@ handle e@(ButtonEvent {ev_event_type = t})
     | t == buttonRelease = do
     drag <- gets dragging
     case drag of
-      Just (_,f) -> modify (\s -> s { dragging = Nothing }) >> f
-          -- we're done dragging and have released the mouse
-      Nothing -> broadcastMessage e
+        -- we're done dragging and have released the mouse:
+        Just (_,f) -> modify (\s -> s { dragging = Nothing }) >> f
+        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
     drag <- gets dragging
     case drag of
-      Just (d,_) -> d (fromIntegral x) (fromIntegral y) -- we're dragging
-      Nothing -> broadcastMessage e
+        Just (d,_) -> d (fromIntegral x) (fromIntegral y) -- we're dragging
+        Nothing -> broadcastMessage e
 
 -- click on an unfocused window, makes it focused on this workspace
 handle e@(ButtonEvent {ev_window = w,ev_event_type = t,ev_button = b })