From 8376ef56580626e9c0f796d5b85b53a0a1c7d5f5 Mon Sep 17 00:00:00 2001 From: V3n3RiX Date: Sat, 14 Jul 2018 21:03:06 +0100 Subject: gentoo resync : 14.07.2018 --- .../constraints/files/constraints-0.4.1.3-ghc-8.patch | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 dev-haskell/constraints/files/constraints-0.4.1.3-ghc-8.patch (limited to 'dev-haskell/constraints/files') diff --git a/dev-haskell/constraints/files/constraints-0.4.1.3-ghc-8.patch b/dev-haskell/constraints/files/constraints-0.4.1.3-ghc-8.patch new file mode 100644 index 000000000000..1b2f8169c45d --- /dev/null +++ b/dev-haskell/constraints/files/constraints-0.4.1.3-ghc-8.patch @@ -0,0 +1,17 @@ +diff --git a/Data/Constraint.hs b/Data/Constraint.hs +index 84d67c0..a104f51 100644 +--- a/Data/Constraint.hs ++++ b/Data/Constraint.hs +@@ -79,3 +79,7 @@ import Data.Data + #endif ++#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ >= 707 ++import GHC.Exts (Constraint) ++#else + import GHC.Prim (Constraint) ++#endif + +@@ -375,3 +379,3 @@ instance Class () (b :=> a) where cls = Sub Dict + instance Class b a => () :=> Class b a where ins = Sub Dict +-instance (b :=> a) => () :=> b :=> a where ins = Sub Dict ++instance (b :=> a) => () :=> (b :=> a) where ins = Sub Dict + -- cgit v1.2.3