summaryrefslogtreecommitdiff
path: root/patches
diff options
context:
space:
mode:
authorandromeda <andromeda@lenovo>2026-09-01 21:32:59 +0200
committerandromeda <andromeda@lenovo>2026-09-01 21:32:59 +0200
commitaf39040e6437701e6d936acf1454fac029e9ad4c (patch)
tree94d28f4a22fce6bc40e41fe52cfef9c143d6f5a9 /patches
parentb9d9990022ce2402c951feedbb91f406d2dfc58e (diff)
[ghc-9.14] add lots and lots and lots of packages in the ghc-9.14 namespace
Diffstat (limited to 'patches')
-rw-r--r--patches/packages-haskell-ghc-9.14-mono-traversable-fix-test-suite.diff19
1 files changed, 19 insertions, 0 deletions
diff --git a/patches/packages-haskell-ghc-9.14-mono-traversable-fix-test-suite.diff b/patches/packages-haskell-ghc-9.14-mono-traversable-fix-test-suite.diff
new file mode 100644
index 0000000..a9709f7
--- /dev/null
+++ b/patches/packages-haskell-ghc-9.14-mono-traversable-fix-test-suite.diff
@@ -0,0 +1,19 @@
+diff --git a/test/Main.hs b/test/Main.hs
+index 87166598..2cbc031d 100644
+--- a/test/Main.hs
++++ b/test/Main.hs
+@@ -357,7 +357,13 @@ main = hspec $ do
+ test "List" ([5 :: Int])
+
+ describe "Containers" $ do
+- let test typ dummy xlookup xinsert xdelete = describe typ $ do
++ let test :: (IsMap a, Eq a, Show a, MapValue a ~ Int, ContainerKey a ~ Int)
++ => String -> a
++ -> (ContainerKey a -> a -> Maybe (MapValue a)) -- ^ lookup
++ -> (ContainerKey a -> MapValue a -> a -> a) -- ^ insert
++ -> (ContainerKey a -> a -> a) -- ^ delete
++ -> Spec
++ test typ dummy xlookup xinsert xdelete = describe typ $ do
+ prop "difference" $ \(DuplPairs xs) (DuplPairs ys) ->
+ let m1 = mapFromList xs `difference` mapFromList ys
+ m2 = mapFromListAs (xs `difference` ys) dummy