From c57871b836ac7e786d401c0a653a19a5e1e1cc42 Mon Sep 17 00:00:00 2001 From: Alec Berryman Date: Sun, 1 Apr 2007 16:45:39 +0200 Subject: Remove trailing spaces, no content changed darcs-hash:20070401144539-39448-1903870c5ef75cc918a8ea3153c5b154feb4e644.gz --- Main.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'Main.hs') diff --git a/Main.hs b/Main.hs index 363ed72..01eca12 100644 --- a/Main.hs +++ b/Main.hs @@ -3,7 +3,7 @@ -- Module : Main.hs -- Copyright : (c) Spencer Janssen 2007 -- License : BSD3-style (see LICENSE) --- +-- -- Maintainer : sjanssen@cse.unl.edu -- Stability : unstable -- Portability : not portable, uses mtl, X11, posix @@ -30,7 +30,7 @@ import Config -- -- The main entry point --- +-- main :: IO () main = do dpy <- openDisplay "" @@ -121,7 +121,7 @@ grabKeys dpy rootw = do -- XCreateWindowEvent(3X11) -- Window manager clients normally should ignore this window if the -- override_redirect member is True. --- +-- handle :: Event -> X () @@ -172,7 +172,7 @@ handle e@(ConfigureRequestEvent {window = w}) = do dpy <- gets display ws <- gets workspace - when (W.member w ws) $ -- already managed, reconfigure (see client:configure() + when (W.member w ws) $ -- already managed, reconfigure (see client:configure() trace ("Reconfigure already managed window: " ++ show w) io $ configureWindow dpy (window e) (value_mask e) $ WindowChanges -- cgit v1.2.3