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 | |
| parent | b3bdd804bda130d1ec0a66192e633ee0e0a476ca (diff) | |
| download | xmobar-bf525097ee78c008f2c96653b3c4eb03f4923246.tar.gz xmobar-bf525097ee78c008f2c96653b3c4eb03f4923246.tar.bz2 | |
Missing file headers and linting
| -rw-r--r-- | src/Signal.hs | 16 | ||||
| -rw-r--r-- | src/Window.hs | 15 | ||||
| -rw-r--r-- | src/Xmobar.hs | 2 |
3 files changed, 32 insertions, 1 deletions
diff --git a/src/Signal.hs b/src/Signal.hs index f634c16..3c341f9 100644 --- a/src/Signal.hs +++ b/src/Signal.hs @@ -1,5 +1,21 @@ {-# LANGUAGE DeriveDataTypeable, CPP #-} +----------------------------------------------------------------------------- +-- | +-- Module : Signal +-- Copyright : (c) Andrea Rosatto +-- : (c) Jose A. Ortega Ruiz +-- : (c) Jochen Keil +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : Jose A. Ortega Ruiz <jao@gnu.org> +-- Stability : unstable +-- Portability : unportable +-- +-- Signal handling, including DBUS when available +-- +----------------------------------------------------------------------------- + module Signal where import Data.Typeable (Typeable) diff --git a/src/Window.hs b/src/Window.hs index a069f1f..0ffa139 100644 --- a/src/Window.hs +++ b/src/Window.hs @@ -1,3 +1,18 @@ +----------------------------------------------------------------------------- +-- | +-- Module : Window +-- Copyright : (c) 2011-12 Jose A. Ortega Ruiz +-- : (c) 2012 Jochen Keil +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : Jose A. Ortega Ruiz <jao@gnu.org> +-- Stability : unstable +-- Portability : unportable +-- +-- Window manipulation functions +-- +----------------------------------------------------------------------------- + module Window where import Prelude hiding (catch) 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")) |