diff options
| author | jao <jao@gnu.org> | 2018-12-04 21:25:28 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2018-12-04 21:25:28 +0000 |
| commit | bad2dbf52d16f00d630636f2137eac16f736b138 (patch) | |
| tree | 011dbeb302b3a41f892aca80edede5c747d0cb68 /src/Xmobar/App/Opts.hs | |
| parent | d48e752fb87555efb05f1251e6510b7cfdfa71d1 (diff) | |
| download | xmobar-bad2dbf52d16f00d630636f2137eac16f736b138.tar.gz xmobar-bad2dbf52d16f00d630636f2137eac16f736b138.tar.bz2 | |
Fix: honour command line flags
Fixes #370, and then some
Diffstat (limited to 'src/Xmobar/App/Opts.hs')
| -rw-r--r-- | src/Xmobar/App/Opts.hs | 7 |
1 files changed, 5 insertions, 2 deletions
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 |