diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-06-08 14:46:24 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-06-08 14:46:24 +0200 |
| commit | 8c3e9da13a3c92a7db308db8c0d81cb474ad7799 (patch) | |
| tree | 88d06952aa5cc3a9c4991d9c43eb7950ff174fe1 /gnu/packages/patches/ganeti-haskell-compat.patch | |
| parent | 5439c04ebdb7b6405f5ea2446b375f1d155a8d95 (diff) | |
| parent | 0c5299200ffcd16370f047b7ccb187c60f30da34 (diff) | |
Merge branch 'master' into core-updates
Diffstat (limited to 'gnu/packages/patches/ganeti-haskell-compat.patch')
| -rw-r--r-- | gnu/packages/patches/ganeti-haskell-compat.patch | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/gnu/packages/patches/ganeti-haskell-compat.patch b/gnu/packages/patches/ganeti-haskell-compat.patch deleted file mode 100644 index 931c50e116..0000000000 --- a/gnu/packages/patches/ganeti-haskell-compat.patch +++ /dev/null @@ -1,18 +0,0 @@ -Adjust to type change of TupE in Template Haskell 2.16. - -diff --git a/src/Ganeti/THH/Types.hs b/src/Ganeti/THH/Types.hs ---- a/src/Ganeti/THH/Types.hs -+++ b/src/Ganeti/THH/Types.hs -@@ -123,4 +123,11 @@ 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)) -+ (AppE (VarE f) (nonUnaryTupE $ map VarE ps)) -+ where -+ nonUnaryTupE :: [Exp] -> Exp -+ nonUnaryTupE es = TupE $ -+#if MIN_VERSION_template_haskell(2,16,0) -+ map Just -+#endif -+ es |