From bad2dbf52d16f00d630636f2137eac16f736b138 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Tue, 4 Dec 2018 21:25:28 +0000
Subject: Fix: honour command line flags

Fixes #370, and then some
---
 src/Xmobar/App/Opts.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'src/Xmobar/App/Opts.hs')

diff --git a/src/Xmobar/App/Opts.hs b/src/Xmobar/App/Opts.hs
index 34e2c9e..07428d2 100644
--- a/src/Xmobar/App/Opts.hs
+++ b/src/Xmobar/App/Opts.hs
@@ -161,5 +161,8 @@ doOpts conf (o:oo) =
                     putStrLn "Can't parse position option, ignoring"
                     doOpts' conf
 
-forceRecompile :: [Opts] -> Bool
-forceRecompile = elem Recompile
+recompileFlag :: [Opts] -> Bool
+recompileFlag = elem Recompile
+
+verboseFlag :: [Opts] -> Bool
+verboseFlag = elem Verbose
-- 
cgit v1.2.3