Permalink
Browse files

Minor style tweak

  • Loading branch information...
1 parent f89bf38 commit 455fa981590946be4ae4e6c688c289c3c73d823c @travitch committed Mar 19, 2013
Showing with 2 additions and 1 deletion.
  1. +2 −1 src/System/Taffybar/XMonadLog.hs
@@ -43,7 +43,8 @@ dbusLog client = dbusLogWithPP client taffybarDefaultPP
taffybarColor :: String -> String -> String -> String
taffybarColor fg bg = wrap t "</span>" . taffybarEscape
- where t = concat ["<span fgcolor=\"", fg, if null bg then "" else "\" bgcolor=\"" ++ bg , "\">"]
+ where
+ t = concat ["<span fgcolor=\"", fg, if null bg then "" else "\" bgcolor=\"" ++ bg , "\">"]
-- | Escape strings so that they can be safely displayed by Pango in
-- the bar widget

0 comments on commit 455fa98

Please sign in to comment.