diff options
| -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 |