diff options
| author | jao <jao@gnu.org> | 2022-01-28 02:45:00 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-01-29 06:42:29 +0000 |
| commit | a5c35003c88c4b050e56cfb5d93a0e0d77d9c223 (patch) | |
| tree | 6d8ba586dec5cb5154291cebc52658ac119eb7b6 /src/Xmobar/App/Main.hs | |
| parent | 1e2c4f20d095c7dbaf0c8d2cf9a8b095388a10d4 (diff) | |
| download | xmobar-a5c35003c88c4b050e56cfb5d93a0e0d77d9c223.tar.gz xmobar-a5c35003c88c4b050e56cfb5d93a0e0d77d9c223.tar.bz2 | |
Whitespace
Diffstat (limited to 'src/Xmobar/App/Main.hs')
| -rw-r--r-- | src/Xmobar/App/Main.hs | 13 |
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 |