diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-10-18 02:15:42 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-10-18 02:15:42 +0200 |
| commit | 7038d3f605ac236cbefe9abf9ca9605f866cdf7f (patch) | |
| tree | 2906990667a8f3291c836b6e58c94693048160b0 | |
| parent | 093e3bd48ba862b07b63ad74e11aa0e1103386a5 (diff) | |
| download | XMonadContrib-7038d3f605ac236cbefe9abf9ca9605f866cdf7f.tar.gz XMonadContrib-7038d3f605ac236cbefe9abf9ca9605f866cdf7f.tar.xz XMonadContrib-7038d3f605ac236cbefe9abf9ca9605f866cdf7f.zip | |
Wrapping the empty string yields the empty string
darcs-hash:20071018001542-a5988-22604499111d6535e88b122844aa30e9d45fd290.gz
| -rw-r--r-- | DynamicLog.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/DynamicLog.hs b/DynamicLog.hs index f79559a..e8d5419 100644 --- a/DynamicLog.hs +++ b/DynamicLog.hs @@ -125,7 +125,8 @@ pprWindowSetXinerama ws = "[" ++ unwords onscreen ++ "] " ++ unwords offscreen . sortBy (comparing S.tag) $ S.hidden ws wrap :: String -> String -> String -> String -wrap l r m = l ++ m ++ r +wrap l r "" = "" +wrap l r m = l ++ m ++ r -- | Intersperse spaces, filtering empty words. unwords' :: [String] -> String |