diff options
| author | l.mai <l.mai@web.de> | 2007-10-18 05:30:00 +0200 |
|---|---|---|
| committer | l.mai <l.mai@web.de> | 2007-10-18 05:30:00 +0200 |
| commit | e1248b2b893f917d0170f7916968c456b3c1f2e4 (patch) | |
| tree | 6f23fa3b12fadae5829a960db542cbef408c06a8 /DynamicLog.hs | |
| parent | 5e25e35c8df01f0d41d831c53e1f72ac6a65f67e (diff) | |
| download | XMonadContrib-e1248b2b893f917d0170f7916968c456b3c1f2e4.tar.gz XMonadContrib-e1248b2b893f917d0170f7916968c456b3c1f2e4.tar.xz XMonadContrib-e1248b2b893f917d0170f7916968c456b3c1f2e4.zip | |
-Wall police
darcs-hash:20071018033000-42ea9-8f269712737b88376bbe662b7dabe62d58a82146.gz
Diffstat (limited to 'DynamicLog.hs')
| -rw-r--r-- | DynamicLog.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/DynamicLog.hs b/DynamicLog.hs index 8e7d188..e0d7b06 100644 --- a/DynamicLog.hs +++ b/DynamicLog.hs @@ -125,7 +125,7 @@ pprWindowSetXinerama ws = "[" ++ unwords onscreen ++ "] " ++ unwords offscreen . sortBy (comparing S.tag) $ S.hidden ws wrap :: String -> String -> String -> String -wrap l r "" = "" +wrap _ _ "" = "" wrap l r m = l ++ m ++ r shorten :: Int -> String -> String |