aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDon Stewart <dons@cse.unsw.edu.au>2007-06-11 07:34:50 +0200
committerDon Stewart <dons@cse.unsw.edu.au>2007-06-11 07:34:50 +0200
commit78afd7a9c7349652d5000f44f51804b1cacc46c8 (patch)
tree26650b28e13d27f222f1edaba426280dad4f4332
parentd14325cc7cae512e7c20c95e7643cb72df2115ce (diff)
downloadXMonadContrib-78afd7a9c7349652d5000f44f51804b1cacc46c8.tar.gz
XMonadContrib-78afd7a9c7349652d5000f44f51804b1cacc46c8.tar.xz
XMonadContrib-78afd7a9c7349652d5000f44f51804b1cacc46c8.zip
fmt
darcs-hash:20070611053450-9c5c1-7188c7e97530ef4b4e8688f6f54b00f0c04b7fd7.gz
-rw-r--r--DynamicLog.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/DynamicLog.hs b/DynamicLog.hs
index a137454..0ef5ada 100644
--- a/DynamicLog.hs
+++ b/DynamicLog.hs
@@ -60,8 +60,10 @@ dynamicLogXinerama :: X ()
dynamicLogXinerama = withWindowSet $ io . putStrLn . ppr
where
ppr ws = "[" ++ unwords onscreen ++ "] " ++ unwords offscreen
- where onscreen = map (pprTag . S.workspace) . sortBy (compare `on` S.screen) $ S.current ws : S.visible ws
- offscreen = map pprTag . filter ((/= S.Empty) . S.stack) . sortBy (compare `on` S.tag) $ S.hidden ws
+ where onscreen = map (pprTag . S.workspace)
+ . sortBy (compare `on` S.screen) $ S.current ws : S.visible ws
+ offscreen = map pprTag . filter ((/= S.Empty) . S.stack)
+ . sortBy (compare `on` S.tag) $ S.hidden ws
-- util functions
pprTag :: Integral i => S.Workspace i a -> String