summarylogtreecommitdiffstats
path: root/haskell-aosd.patch
diff options
context:
space:
mode:
authorLeif Warner2015-06-28 21:14:54 -0700
committerLeif Warner2015-06-28 21:14:54 -0700
commit371afc06f5e8843a3647cb283930ed7285d32267 (patch)
treeb8e026efc31df685e65a34e3523c9905b2418d66 /haskell-aosd.patch
downloadaur-haskell-aosd.tar.gz
Initial commit
Have submitted the patch as a PR to upstream: https://bitbucket.org/dschuessler/haskell-aosd/pull-request/1/specify-the-return-type-of-the/
Diffstat (limited to 'haskell-aosd.patch')
-rw-r--r--haskell-aosd.patch12
1 files changed, 12 insertions, 0 deletions
diff --git a/haskell-aosd.patch b/haskell-aosd.patch
new file mode 100644
index 00000000000..942da392f00
--- /dev/null
+++ b/haskell-aosd.patch
@@ -0,0 +1,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)