summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/App/Main.hs
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2019-01-12 19:05:06 +0000
committerjao <jao@gnu.org>2019-01-12 19:05:06 +0000
commite2c997b5e2d4589d5a4710049734a0a03048363d (patch)
treeae1ce70c675af91b249fcba063e569d652172c9f /src/Xmobar/App/Main.hs
parentc05854f93a24ca7bdd0d73a532435f1901b05792 (diff)
downloadxmobar-e2c997b5e2d4589d5a4710049734a0a03048363d.tar.gz
xmobar-e2c997b5e2d4589d5a4710049734a0a03048363d.tar.bz2
Honour flags when no config file is available (fixes #375)
Diffstat (limited to 'src/Xmobar/App/Main.hs')
-rw-r--r--src/Xmobar/App/Main.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Xmobar/App/Main.hs b/src/Xmobar/App/Main.hs
index 6eda49a..e54c846 100644
--- a/src/Xmobar/App/Main.hs
+++ b/src/Xmobar/App/Main.hs
@@ -1,7 +1,7 @@
------------------------------------------------------------------------------
-- |
-- Module: Xmobar.App.Main
--- Copyright: (c) 2018 Jose Antonio Ortega Ruiz
+-- Copyright: (c) 2018, 2019 Jose Antonio Ortega Ruiz
-- License: BSD3-style (see LICENSE)
--
-- Maintainer: jao@gnu.org
@@ -99,7 +99,7 @@ xmobarMain = do
case cf of
Nothing -> case rest of
(c:_) -> error $ c ++ ": file not found"
- _ -> xmobar defaultConfig
+ _ -> doOpts defaultConfig flags >>= xmobar
Just p -> do r <- readConfig defaultConfig p
case r of
Left e ->