From f092ffd4bfdc0973db04808953405a5df892ec1d Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Tue, 5 Jun 2007 10:14:52 +0200
Subject: remove accidental logging of events

darcs-hash:20070605081452-9c5c1-a384f89e9ed89678c96aee108a1b1e85cbff9d06
---
 Main.hs | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index 89d07e0..8c9b485 100644
--- a/Main.hs
+++ b/Main.hs
@@ -51,13 +51,12 @@ main = do
                , [(x, "")]            <- reads s = x
                | otherwise = new (fromIntegral workspaces) (fromIntegral $ length xinesc)
 
-        safeLayouts = case defaultLayouts of [] -> (full, []); (x:xs) -> (x, xs)
+        safeLayouts = case defaultLayouts of [] -> (full, []); (x:xs) -> (x,xs)
         cf = XConf
             { display       = dpy
             , theRoot       = rootw
             , normalBorder  = nbc
-            , focusedBorder = fbc
-            }
+            , focusedBorder = fbc }
         st = XState
             { windowset     = winset
             , layouts       = M.fromList [(w, safeLayouts) | w <- [0 .. W workspaces - 1]]
@@ -93,9 +92,7 @@ main = do
             -- withWindowSet (io . hPrint stderr) -- uncomment for state logging
 
             -- main loop, for all you HOF/recursion fans out there.
-            forever $ do x <- io (nextEvent dpy e >> getEvent e)
-                         io (hPrint stderr (eventName x, x))
-                         handle x
+            forever $ handle =<< io (nextEvent dpy e >> getEvent e)
 
       where forever a = a >> forever a
 
-- 
cgit v1.2.3