From 78afd7a9c7349652d5000f44f51804b1cacc46c8 Mon Sep 17 00:00:00 2001 From: Don Stewart Date: Mon, 11 Jun 2007 07:34:50 +0200 Subject: fmt darcs-hash:20070611053450-9c5c1-7188c7e97530ef4b4e8688f6f54b00f0c04b7fd7.gz --- DynamicLog.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'DynamicLog.hs') 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 -- cgit v1.2.3