From 9d2c98871bbd04c585fae034072f934b5c3e8093 Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 25 Nov 2018 06:13:29 +0000 Subject: Parsers wee refactoring --- src/lib/Xmobar.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/lib/Xmobar.hs') diff --git a/src/lib/Xmobar.hs b/src/lib/Xmobar.hs index ecc664a..897d671 100644 --- a/src/lib/Xmobar.hs +++ b/src/lib/Xmobar.hs @@ -46,7 +46,7 @@ import Control.Exception (bracket) import Xmobar.Config import Xmobar.Runnable -import Xmobar.Parsers +import Xmobar.Template import Xmobar.System.Signal (setupSignalHandler, withDeferSignals) import Xmobar.X11.Types import Xmobar.X11.EventLoop (startLoop, startCommand) @@ -89,7 +89,7 @@ xmobar conf = withDeferSignals $ do d <- openDisplay "" fs <- initFont d (font conf) fl <- mapM (initFont d) (additionalFonts conf) - cls <- mapM (parseTemplate conf) (splitTemplate conf) + cls <- mapM (parseCommands conf) (splitTemplate conf) sig <- setupSignalHandler bracket (mapM (mapM $ startCommand sig) cls) cleanupThreads -- cgit v1.2.3