diff options
| author | Don Stewart <dons@cse.unsw.edu.au> | 2007-06-11 07:34:50 +0200 |
|---|---|---|
| committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-06-11 07:34:50 +0200 |
| commit | 78afd7a9c7349652d5000f44f51804b1cacc46c8 (patch) | |
| tree | 26650b28e13d27f222f1edaba426280dad4f4332 | |
| parent | d14325cc7cae512e7c20c95e7643cb72df2115ce (diff) | |
| download | XMonadContrib-78afd7a9c7349652d5000f44f51804b1cacc46c8.tar.gz XMonadContrib-78afd7a9c7349652d5000f44f51804b1cacc46c8.tar.xz XMonadContrib-78afd7a9c7349652d5000f44f51804b1cacc46c8.zip | |
fmt
darcs-hash:20070611053450-9c5c1-7188c7e97530ef4b4e8688f6f54b00f0c04b7fd7.gz
| -rw-r--r-- | DynamicLog.hs | 6 |
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 |