summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/X11/Window.hs
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2021-07-12 23:07:08 +0100
committerjao <jao@gnu.org>2021-07-12 23:07:08 +0100
commit13e35e692d07ad9a21a5a8b4bd8cb5326098997e (patch)
tree20ab59a19a8996b59ee3b8b10b38553cfddead55 /src/Xmobar/X11/Window.hs
parent23accf6c3acacb1c972961612cce1c7c831b11e7 (diff)
downloadxmobar-13e35e692d07ad9a21a5a8b4bd8cb5326098997e.tar.gz
xmobar-13e35e692d07ad9a21a5a8b4bd8cb5326098997e.tar.bz2
Nit, for homogeneity's sake
Diffstat (limited to 'src/Xmobar/X11/Window.hs')
-rw-r--r--src/Xmobar/X11/Window.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Xmobar/X11/Window.hs b/src/Xmobar/X11/Window.hs
index 13c99f0..14a0016 100644
--- a/src/Xmobar/X11/Window.hs
+++ b/src/Xmobar/X11/Window.hs
@@ -1,7 +1,7 @@
-----------------------------------------------------------------------------
-- |
-- Module : Window
--- Copyright : (c) 2011-18, 20 Jose A. Ortega Ruiz
+-- Copyright : (c) 2011-18, 20, 21 Jose A. Ortega Ruiz
-- : (c) 2012 Jochen Keil
-- License : BSD-style (see LICENSE)
--
@@ -80,11 +80,11 @@ setPosition c p rs ht =
case p' of
Top -> Rectangle rx ry rw h
TopP l r -> Rectangle (rx + fi l) ry (rw - fi l - fi r) h
- TopH ch -> Rectangle rx ry rw $ mh ch
+ TopH ch -> Rectangle rx ry rw (mh ch)
TopW a i -> Rectangle (ax a i) ry (nw i) h
TopSize a i ch -> Rectangle (ax a i) ry (nw i) (mh ch)
Bottom -> Rectangle rx ny rw h
- BottomH ch -> Rectangle rx ny rw $ mh ch
+ BottomH ch -> Rectangle rx ny rw (mh ch)
BottomW a i -> Rectangle (ax a i) ny (nw i) h
BottomP l r -> Rectangle (rx + fi l) ny (rw - fi l - fi r) h
BottomSize a i ch -> Rectangle (ax a i) (ny' ch) (nw i) (mh ch)