mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-17 20:27:36 -05:00
0105f33a4d
* gnu/packages/patches/ganeti-haskell-compat.patch: New file. * gnu/local.mk (dist_patch_DATA): Adjust accordingly. * gnu/packages/virtualization.scm (ganeti)[source](patches): Add it. [arguments]: Add phase patch-version-constraints.
18 lines
614 B
Diff
18 lines
614 B
Diff
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
|