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