Update to xmobar

1 files changed, 4 insertions, 5 deletions

diff --git a/src/Rahm/Desktop/XMobarLog.hs b/src/Rahm/Desktop/XMobarLog.hs
index d1d131c..286c74b 100644
--- a/src/Rahm/Desktop/XMobarLog.hs
+++ b/src/Rahm/Desktop/XMobarLog.hs
@@ -1,7 +1,7 @@
 module Rahm.Desktop.XMobarLog (XMobarLog, spawnXMobar, xMobarLogHook) where
 
 import Control.Arrow (second)
-import Control.Monad (forM_)
+import Control.Monad (forM_, unless)
 import Control.Monad.Writer (execWriter, tell)
 import Data.Char (isAsciiLower, isAsciiUpper, isDigit)
 import Data.List (sortBy)
@@ -19,7 +19,7 @@ import qualified XMonad as X
 import XMonad.Util.NamedWindows (getName)
 import XMonad.Util.Run (spawnPipe)
 
-data XMobarLog = XMobarLog Handle
+newtype XMobarLog = XMobarLog Handle
 
 -- The log hook for XMobar. This is a custom log hook that does not use any
 -- of the Xmonad dynamic log libraries.
@@ -64,9 +64,8 @@ xMobarLogHook (XMobarLog xmproc) = do
               tell " </fc></fn>"
             _ -> return ()
 
-          if not (null theaters)
-            then tell "| "
-            else return ()
+          unless (null theaters) $
+            tell "| "
 
           forM_ wss $ \(t, ws) -> do
             case t of