diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2014-03-13 20:33:51 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2014-03-13 20:33:51 +0100 |
| commit | 04ffb1e36db9b49ffe393ec6bc099a3fe505e3b8 (patch) | |
| tree | b55fc1ca3cf9299e47230b7bd5d191b4f7fc9464 /src/Main.hs | |
| parent | 40a2d25767a25dacc4a961f22b023131f86417f8 (diff) | |
| download | xmobar-04ffb1e36db9b49ffe393ec6bc099a3fe505e3b8.tar.gz xmobar-04ffb1e36db9b49ffe393ec6bc099a3fe505e3b8.tar.bz2 | |
Back to picking first screen by default (#158)0.20.1
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Main.hs b/src/Main.hs index a3c60c3..92573b9 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -175,7 +175,7 @@ usage = usageInfo header options ++ footer info :: String info = "xmobar " ++ showVersion version ++ "\n (C) 2007 - 2010 Andrea Rossato " - ++ "\n (C) 2010 - 2013 Jose A Ortega Ruiz\n " + ++ "\n (C) 2010 - 2014 Jose A Ortega Ruiz\n " ++ mail ++ "\n" ++ license mail :: String @@ -188,7 +188,7 @@ license = "\nThis program is distributed in the hope that it will be useful," ++ "\nSee the License for more details." doOpts :: Config -> [Opts] -> IO Config -doOpts conf [] = +doOpts conf [] = return (conf {lowerOnStart = lowerOnStart conf && overrideRedirect conf}) doOpts conf (o:oo) = case o of @@ -217,4 +217,3 @@ doOpts conf (o:oo) = "specified with the -" ++ c:" option\n") readStr str = [x | (x,t) <- reads str, ("","") <- lex t] doOpts' opts = doOpts opts oo - |