From 18f4042472656d4a80b6da5d4a6f0635f4cdd8ae Mon Sep 17 00:00:00 2001 From: Tomas Janousek Date: Mon, 26 Apr 2021 12:39:50 +0100 Subject: 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. --- src/Xmobar/X11/Text.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') 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 -- cgit v1.2.3