diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2012-08-13 15:09:42 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2012-08-13 15:09:42 +0200 |
| commit | bf525097ee78c008f2c96653b3c4eb03f4923246 (patch) | |
| tree | 16220093df4584e810addc48f48a1da9070b6f10 /src/Xmobar.hs | |
| parent | b3bdd804bda130d1ec0a66192e633ee0e0a476ca (diff) | |
| download | xmobar-bf525097ee78c008f2c96653b3c4eb03f4923246.tar.gz xmobar-bf525097ee78c008f2c96653b3c4eb03f4923246.tar.bz2 | |
Missing file headers and linting
Diffstat (limited to 'src/Xmobar.hs')
| -rw-r--r-- | src/Xmobar.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Xmobar.hs b/src/Xmobar.hs index 5328b6e..2dbba11 100644 --- a/src/Xmobar.hs +++ b/src/Xmobar.hs @@ -76,7 +76,7 @@ runX xc f = runReaderT f xc -- | Starts the main event loop and threads startLoop :: XConf -> MVar SignalType -> [[(Maybe ThreadId, TVar String)]] -> IO () -startLoop xcfg@(XConf _ _ w _ conf) sig vs = do +startLoop xcfg@(XConf _ _ w _ _) sig vs = do tv <- atomically $ newTVar [] _ <- forkIO (checker tv [] vs sig `catch` \(SomeException _) -> void (putStrLn "Thread checker failed")) |