summaryrefslogtreecommitdiffhomepage
path: root/src/lib/Xmobar.hs
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2018-11-25 06:13:29 +0000
committerjao <jao@gnu.org>2018-11-25 06:13:29 +0000
commit9d2c98871bbd04c585fae034072f934b5c3e8093 (patch)
tree468bb9565efe6e14bad3828d21912ca4155aafd3 /src/lib/Xmobar.hs
parent3cf0041960837701c325b698460678aea1c449b4 (diff)
downloadxmobar-9d2c98871bbd04c585fae034072f934b5c3e8093.tar.gz
xmobar-9d2c98871bbd04c585fae034072f934b5c3e8093.tar.bz2
Parsers wee refactoring
Diffstat (limited to 'src/lib/Xmobar.hs')
-rw-r--r--src/lib/Xmobar.hs4
1 files changed, 2 insertions, 2 deletions
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