summaryrefslogtreecommitdiffhomepage
path: root/Xmobar.hs
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@ing.unitn.it>2008-09-01 20:00:20 +0200
committerAndrea Rossato <andrea.rossato@ing.unitn.it>2008-09-01 20:00:20 +0200
commit09b6f7a318cf67c8931d078dfa1b978b9d159ca9 (patch)
tree721cb35eea13c6356f396bd80d58cf2d9fb8a04c /Xmobar.hs
parentab3f6ba00c909af0354e7cccdd9f493d826eb222 (diff)
downloadxmobar-09b6f7a318cf67c8931d078dfa1b978b9d159ca9.tar.gz
xmobar-09b6f7a318cf67c8931d078dfa1b978b9d159ca9.tar.bz2
code formatting
darcs-hash:20080901180020-d6583-c55675755883b6c48a61b8770911198232a5d006.gz
Diffstat (limited to 'Xmobar.hs')
-rw-r--r--Xmobar.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Xmobar.hs b/Xmobar.hs
index 3a781a7..1e7c932 100644
--- a/Xmobar.hs
+++ b/Xmobar.hs
@@ -130,7 +130,7 @@ createWin d fs c = do
srs <- getScreenInfo d
rootw <- rootWindow d dflt
(as,ds) <- textExtents fs "0"
- let ht = as + ds + 4
+ let ht = as + ds + 4
(r,o) = setPosition (position c) srs (fi ht)
win <- newWindow d (defaultScreenOfDisplay d) rootw r o
selectInput d win (exposureMask .|. structureNotifyMask)