diff options
| author | jao <jao@gnu.org> | 2021-07-12 23:07:08 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-07-12 23:07:08 +0100 |
| commit | 13e35e692d07ad9a21a5a8b4bd8cb5326098997e (patch) | |
| tree | 20ab59a19a8996b59ee3b8b10b38553cfddead55 | |
| parent | 23accf6c3acacb1c972961612cce1c7c831b11e7 (diff) | |
| download | xmobar-13e35e692d07ad9a21a5a8b4bd8cb5326098997e.tar.gz xmobar-13e35e692d07ad9a21a5a8b4bd8cb5326098997e.tar.bz2 | |
Nit, for homogeneity's sake
| -rw-r--r-- | src/Xmobar/X11/Window.hs | 6 |
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) |