summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--src/Signal.hs16
-rw-r--r--src/Window.hs15
-rw-r--r--src/Xmobar.hs2
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"))