1 files changed, 22 insertions, 0 deletions
diff --git a/devel/hs-gtk2hs-buildtools/files/patch-c2hs__c__CAST.hs b/devel/hs-gtk2hs-buildtools/files/patch-c2hs__c__CAST.hs
new file mode 100644
index 000000000000..0fd4c3e3910b
--- /dev/null
+++ b/devel/hs-gtk2hs-buildtools/files/patch-c2hs__c__CAST.hs
@@ -0,0 +1,22 @@
+--- ./c2hs/c/CAST.hs.orig	2012-11-12 00:26:43.000000000 +0100
++++ ./c2hs/c/CAST.hs	2013-05-28 11:02:33.000000000 +0200
+@@ -1125,6 +1125,9 @@
+     put_ bh (CTypedef ae) = do
+             putByte bh 4
+             put_ bh ae
++    put_ bh (CThread af) = do
++            putByte bh 5
++            put_ bh af
+     get bh = do
+             h <- getByte bh
+             case h of
+@@ -1143,6 +1146,9 @@
+               4 -> do
+                     ae <- get bh
+                     return (CTypedef ae)
++              5 -> do
++                    af <- get bh
++                    return (CThread af)
+ 
+ instance Binary CTypeQual where
+     put_ bh (CConstQual aa) = do