summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/X11/Text.hs
diff options
context:
space:
mode:
authorTomas Janousek <tomi@nomi.cz>2021-04-26 12:39:50 +0100
committerTomas Janousek <tomi@nomi.cz>2021-04-26 14:17:45 +0100
commit18f4042472656d4a80b6da5d4a6f0635f4cdd8ae (patch)
tree04cf3c4e422ee45d22415fde945dd73bb15b9970 /src/Xmobar/X11/Text.hs
parentdd8584af1ac7c2853c4db0ee2d1bfe1f71e62fde (diff)
downloadxmobar-18f4042472656d4a80b6da5d4a6f0635f4cdd8ae.tar.gz
xmobar-18f4042472656d4a80b6da5d4a6f0635f4cdd8ae.tar.bz2
Workaround for hlint failure
hlint started failing recently: src/Xmobar/X11/Text.hs:121:32: Error: Parse error: on input `-' Found: textExtents (Utf8 fs) s = do let (_,rl) = wcTextExtents fs s > ascent = fromIntegral $ - (rect_y rl) descent = fromIntegral $ rect_height rl + fromIntegral (rect_y rl) return (ascent, descent) It's probably a change in the parser or something, didn't really look into it, just changed it to something that's parsable.
Diffstat (limited to 'src/Xmobar/X11/Text.hs')
-rw-r--r--src/Xmobar/X11/Text.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Xmobar/X11/Text.hs b/src/Xmobar/X11/Text.hs
index 6466009..36a2a12 100644
--- a/src/Xmobar/X11/Text.hs
+++ b/src/Xmobar/X11/Text.hs
@@ -118,7 +118,7 @@ textExtents (Core fs) s = do
return (a,d)
textExtents (Utf8 fs) s = do
let (_,rl) = wcTextExtents fs s
- ascent = fromIntegral $ - (rect_y rl)
+ ascent = fromIntegral $ negate (rect_y rl)
descent = fromIntegral $ rect_height rl + fromIntegral (rect_y rl)
return (ascent, descent)
#ifdef XFT