summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/Config/Parse.hs
diff options
context:
space:
mode:
authorJohn Soo <jsoo1@asu.edu>2021-10-20 14:49:34 -0700
committerJohn Soo <jsoo1@asu.edu>2021-11-07 17:47:47 -0800
commitdc5b6328b50fb4dc1a7487efd69a42db31e1082b (patch)
tree228032dedf427e657e5f3adbc972a45e1a342fc1 /src/Xmobar/Config/Parse.hs
parentebea33e52fb71b049baf17374b88a7521de4097f (diff)
downloadxmobar-dc5b6328b50fb4dc1a7487efd69a42db31e1082b.tar.gz
xmobar-dc5b6328b50fb4dc1a7487efd69a42db31e1082b.tar.bz2
Fail when reading a SignalChan, parse signal from defaultConfig.
* Address code review comments on ipc-improvements.
Diffstat (limited to 'src/Xmobar/Config/Parse.hs')
-rw-r--r--src/Xmobar/Config/Parse.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Xmobar/Config/Parse.hs b/src/Xmobar/Config/Parse.hs
index 48a31c3..d9afdf2 100644
--- a/src/Xmobar/Config/Parse.hs
+++ b/src/Xmobar/Config/Parse.hs
@@ -57,7 +57,8 @@ parseConfig defaultConfig =
x <- perms
eof
s <- getState
- return (x (SignalChan Nothing),s)
+ let sig = signal defaultConfig
+ return (x sig ,s)
perms = permute $ Config
<$?> pFont <|?> pFontList <|?> pWmClass <|?> pWmName