summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDon Stewart <dons@cse.unsw.edu.au>2007-06-05 10:14:52 +0200
committerDon Stewart <dons@cse.unsw.edu.au>2007-06-05 10:14:52 +0200
commitf092ffd4bfdc0973db04808953405a5df892ec1d (patch)
tree251c395369febc02eaf155a07fdad7e11c624c8d
parent8cd2199c6ba396c85e1e09289436d8d02686e217 (diff)
downloadmetatile-f092ffd4bfdc0973db04808953405a5df892ec1d.tar
metatile-f092ffd4bfdc0973db04808953405a5df892ec1d.zip
remove accidental logging of events
darcs-hash:20070605081452-9c5c1-a384f89e9ed89678c96aee108a1b1e85cbff9d06
-rw-r--r--Main.hs9
1 files changed, 3 insertions, 6 deletions
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