diff options
| author | andromeda <andromeda@lenovo> | 2026-09-01 21:32:59 +0200 |
|---|---|---|
| committer | andromeda <andromeda@lenovo> | 2026-09-01 21:32:59 +0200 |
| commit | af39040e6437701e6d936acf1454fac029e9ad4c (patch) | |
| tree | 94d28f4a22fce6bc40e41fe52cfef9c143d6f5a9 /patches | |
| parent | b9d9990022ce2402c951feedbb91f406d2dfc58e (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.diff | 19 |
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 |
