From 09b6f7a318cf67c8931d078dfa1b978b9d159ca9 Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Mon, 1 Sep 2008 20:00:20 +0200 Subject: code formatting darcs-hash:20080901180020-d6583-c55675755883b6c48a61b8770911198232a5d006.gz --- Xmobar.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- cgit v1.2.3