blob: 942da392f00a636db5083fd9136b8c192cd218ca (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
diff -auar aosd-0.2.1/Graphics/Aosd/Pango.hs aosd-0.2.1.patched/Graphics/Aosd/Pango.hs
--- aosd-0.2.1/Graphics/Aosd/Pango.hs 2014-03-22 11:04:09.000000000 -0700
+++ aosd-0.2.1.patched/Graphics/Aosd/Pango.hs 2015-06-28 20:57:40.285757171 -0700
@@ -230,7 +230,7 @@
case tcText of
Empty -> return ()
PlainText s -> layoutSetText layout (s "")
- PangoMarkup s -> void (layoutSetMarkup layout (s ""))
+ PangoMarkup s -> void (layoutSetMarkup layout (s "") :: IO String)
let go :: (PangoLayout -> a -> IO ()) -> Maybe a -> IO ()
go f = maybeDo (f layout)
|