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)