summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/App/Main.hs
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-01-28 02:45:00 +0000
committerjao <jao@gnu.org>2022-01-29 06:42:29 +0000
commita5c35003c88c4b050e56cfb5d93a0e0d77d9c223 (patch)
tree6d8ba586dec5cb5154291cebc52658ac119eb7b6 /src/Xmobar/App/Main.hs
parent1e2c4f20d095c7dbaf0c8d2cf9a8b095388a10d4 (diff)
downloadxmobar-a5c35003c88c4b050e56cfb5d93a0e0d77d9c223.tar.gz
xmobar-a5c35003c88c4b050e56cfb5d93a0e0d77d9c223.tar.bz2
Whitespace
Diffstat (limited to 'src/Xmobar/App/Main.hs')
-rw-r--r--src/Xmobar/App/Main.hs13
1 files changed, 7 insertions, 6 deletions
diff --git a/src/Xmobar/App/Main.hs b/src/Xmobar/App/Main.hs
index d969cc5..6a3203f 100644
--- a/src/Xmobar/App/Main.hs
+++ b/src/Xmobar/App/Main.hs
@@ -1,7 +1,7 @@
------------------------------------------------------------------------------
-- |
-- Module: Xmobar.App.Main
--- Copyright: (c) 2018, 2019, 2020 Jose Antonio Ortega Ruiz
+-- Copyright: (c) 2018, 2019, 2020, 2022 Jose Antonio Ortega Ruiz
-- License: BSD3-style (see LICENSE)
--
-- Maintainer: jao@gnu.org
@@ -51,12 +51,12 @@ xmobar :: Config -> IO ()
xmobar conf = withDeferSignals $ do
initThreads
d <- openDisplay ""
- fs <- initFont d (font conf)
- fl <- mapM (initFont d) (additionalFonts conf)
- cls <- mapM (parseTemplate (commands conf) (sepChar conf))
+ fs <- initFont d (font conf)
+ fl <- mapM (initFont d) (additionalFonts conf)
+ cls <- mapM (parseTemplate (commands conf) (sepChar conf))
(splitTemplate (alignSep conf) (template conf))
let confSig = unSignalChan (signal conf)
- sig <- maybe newEmptyTMVarIO pure confSig
+ sig <- maybe newEmptyTMVarIO pure confSig
unless (isJust confSig) $ setupSignalHandler sig
refLock <- newRefreshLock
withTimer (refreshLock refLock) $
@@ -110,5 +110,6 @@ xmobarMain = do
Just p -> do r <- readConfig defaultConfig p
case r of
Left e ->
- buildLaunch (filter (/= p) args) (verboseFlag flags) (recompileFlag flags) p e
+ buildLaunch (filter (/= p) args) (verboseFlag flags)
+ (recompileFlag flags) p e
Right (c, defs) -> doOpts c flags >>= xmobar' defs