summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/Run/Parsers.hs
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-09-11 18:54:34 +0100
committerjao <jao@gnu.org>2022-09-11 19:22:57 +0100
commit7b6542e6b13d5457509a3bf79e3ad3ad9a42e48e (patch)
tree136e52af523e4a6924705a92393ebabcc5b95363 /src/Xmobar/Run/Parsers.hs
parentd7299a0b80f0b15f820a1b7533549e306755441c (diff)
downloadxmobar-7b6542e6b13d5457509a3bf79e3ad3ad9a42e48e.tar.gz
xmobar-7b6542e6b13d5457509a3bf79e3ad3ad9a42e48e.tar.bz2
x event loop clean-ups
Diffstat (limited to 'src/Xmobar/Run/Parsers.hs')
-rw-r--r--src/Xmobar/Run/Parsers.hs5
1 files changed, 1 insertions, 4 deletions
diff --git a/src/Xmobar/Run/Parsers.hs b/src/Xmobar/Run/Parsers.hs
index 8da7204..de983fd 100644
--- a/src/Xmobar/Run/Parsers.hs
+++ b/src/Xmobar/Run/Parsers.hs
@@ -82,10 +82,7 @@ colorComponents conf c =
(f,',':b) -> (f, b)
(f, _) -> (f, bgColor conf)
-allParsers :: TextRenderInfo
- -> FontIndex
- -> Maybe [Action]
- -> Parser [Segment]
+allParsers :: TextRenderInfo -> FontIndex -> Maybe [Action] -> Parser [Segment]
allParsers c f a = textParser c f a
<|> try (iconParser c f a)
<|> try (hspaceParser c f a)