diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-10-17 23:09:12 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-10-17 23:09:12 +0200 |
| commit | 8a8fca1e2d89b52b5d797a1b62429c46c653e7eb (patch) | |
| tree | 99f8ea9b1ea4f71cd100e66885ed69c1236991be /DynamicLog.hs | |
| parent | 2f97711f2f2ec3b9c47d05c9fd790ece23432cda (diff) | |
| download | XMonadContrib-8a8fca1e2d89b52b5d797a1b62429c46c653e7eb.tar.gz XMonadContrib-8a8fca1e2d89b52b5d797a1b62429c46c653e7eb.tar.xz XMonadContrib-8a8fca1e2d89b52b5d797a1b62429c46c653e7eb.zip | |
DynamicLog: not . null. Duh.
darcs-hash:20071017210912-a5988-6b05818ed665808068bdc7b5aeeed9fb091a80e4.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 07a14f7..c10dc88 100644 --- a/DynamicLog.hs +++ b/DynamicLog.hs @@ -134,7 +134,7 @@ unwords' :: [String] -> String unwords' = sepBy " " sepBy :: String -> [String] -> String -sepBy sep = concat . intersperse sep . filter null +sepBy sep = concat . intersperse sep . filter (not . null) -- TODO dzenColor xmobarColor :: String -> String -> String -> String |