diff options
Diffstat (limited to 'app-emulation/ganeti/files/ganeti-3.0.1-template_haskell.patch')
-rw-r--r-- | app-emulation/ganeti/files/ganeti-3.0.1-template_haskell.patch | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/app-emulation/ganeti/files/ganeti-3.0.1-template_haskell.patch b/app-emulation/ganeti/files/ganeti-3.0.1-template_haskell.patch deleted file mode 100644 index 7ac02d020796..000000000000 --- a/app-emulation/ganeti/files/ganeti-3.0.1-template_haskell.patch +++ /dev/null @@ -1,24 +0,0 @@ -API change in version 2.16 (shipped with ghc-8.10) which changed the type for -the TupE constructor from [Exp] to [Maybe Exp]. - -Thanks-To: solpeth in #gentoo-haskell -Signed-off-by: Robin H. Johnson <robbat2@gentoo.org> - ---- ganeti-3.0.1/src/Ganeti/THH/Types.hs 2021-02-03 09:24:44.000000000 -0800 -+++ ganeti-3.0.1.modified//src/Ganeti/THH/Types.hs 2021-08-14 21:37:38.027556528 -0700 -@@ -122,5 +122,13 @@ - curryN n = do - f <- newName "f" - ps <- replicateM n (newName "x") -- return $ LamE (VarP f : map VarP ps) -- (AppE (VarE f) (TupE $ map VarE ps)) -+ -- return $ LamE (VarP f : map VarP ps) -+ -- (AppE (VarE f) (TupE $ map VarE ps)) -+ let args = map VarP (f:ps) -+ ntup = TupE -+#if MIN_VERSION_template_haskell(2,16,0) -+ $ map Just (map VarE ps) -+#else -+ (map VarE ps) -+#endif -+ return $ LamE args (AppE (VarE f) ntup) |