From 7038d3f605ac236cbefe9abf9ca9605f866cdf7f Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Thu, 18 Oct 2007 02:15:42 +0200
Subject: Wrapping the empty string yields the empty string

darcs-hash:20071018001542-a5988-22604499111d6535e88b122844aa30e9d45fd290.gz
---
 DynamicLog.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'DynamicLog.hs')

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
-- 
cgit v1.2.3