From bf525097ee78c008f2c96653b3c4eb03f4923246 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Mon, 13 Aug 2012 15:09:42 +0200 Subject: Missing file headers and linting --- src/Signal.hs | 16 ++++++++++++++++ src/Window.hs | 15 +++++++++++++++ src/Xmobar.hs | 2 +- 3 files changed, 32 insertions(+), 1 deletion(-) (limited to 'src') 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 +-- 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 +-- 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")) -- cgit v1.2.3