summaryrefslogtreecommitdiffhomepage
path: root/Main.hs
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@ing.unitn.it>2007-11-04 12:16:55 +0100
committerAndrea Rossato <andrea.rossato@ing.unitn.it>2007-11-04 12:16:55 +0100
commit91eca1f043e051b64d73e49ed94366d960fbebab (patch)
tree33ccf0b3bc13a897090d3e95579503639ed303b3 /Main.hs
parentfae174b84e7d1cf6fc4cc12187033ac23d31265b (diff)
downloadxmobar-91eca1f043e051b64d73e49ed94366d960fbebab.tar.gz
xmobar-91eca1f043e051b64d73e49ed94366d960fbebab.tar.bz2
Added an argument to Top and Bottom type contructors
darcs-hash:20071104111655-d6583-c82d8774eba9939e2c25020a93379227c9934993.gz
Diffstat (limited to 'Main.hs')
-rw-r--r--Main.hs16
1 files changed, 8 insertions, 8 deletions
diff --git a/Main.hs b/Main.hs
index ba92716..bf31d3b 100644
--- a/Main.hs
+++ b/Main.hs
@@ -132,14 +132,14 @@ doOpts conf (o:oo) =
case o of
Help -> putStr usage >> exitWith ExitSuccess
Version -> putStrLn version >> exitWith ExitSuccess
- Font s -> modifyIORef conf (\c -> c { font = s }) >> go
- BgColor s -> modifyIORef conf (\c -> c { bgColor = s }) >> go
- FgColor s -> modifyIORef conf (\c -> c { fgColor = s }) >> go
- T -> modifyIORef conf (\c -> c { position = Top }) >> go
- B -> modifyIORef conf (\c -> c { position = Bottom }) >> go
- AlignSep s -> modifyIORef conf (\c -> c { alignSep = s }) >> go
- SepChar s -> modifyIORef conf (\c -> c { sepChar = s }) >> go
- Template s -> modifyIORef conf (\c -> c { template = s }) >> go
+ Font s -> modifyIORef conf (\c -> c { font = s }) >> go
+ BgColor s -> modifyIORef conf (\c -> c { bgColor = s }) >> go
+ FgColor s -> modifyIORef conf (\c -> c { fgColor = s }) >> go
+ T -> modifyIORef conf (\c -> c { position = Top A }) >> go
+ B -> modifyIORef conf (\c -> c { position = Bottom A}) >> go
+ AlignSep s -> modifyIORef conf (\c -> c { alignSep = s }) >> go
+ SepChar s -> modifyIORef conf (\c -> c { sepChar = s }) >> go
+ Template s -> modifyIORef conf (\c -> c { template = s }) >> go
Commands s -> case readCom s of
Right x -> modifyIORef conf (\c -> c { commands = x }) >> go
Left e -> putStr (e ++ usage) >> exitWith (ExitFailure 1)