646b892680
Some checks failed
Periodic Merges (6h) / master → staging-nixos (push) Failing after 12m50s
Periodic Merges (6h) / master → staging-next (push) Failing after 12m54s
Periodic Merges (24h) / merge-base(master,staging) → haskell-updates (push) Failing after 11m54s
Periodic Merges (6h) / staging-next → staging (push) Failing after 12m13s
Periodic Merges (24h) / staging-next-25.05 → staging-25.05 (push) Failing after 13m24s
Periodic Merges (24h) / release-25.05 → staging-next-25.05 (push) Failing after 14m28s
13 lines
405 B
Diff
13 lines
405 B
Diff
diff --git a/src/Control/PatternArrows.hs b/src/Control/PatternArrows.hs
|
|
index d382c19..0b067dd 100644
|
|
--- a/src/Control/PatternArrows.hs
|
|
+++ b/src/Control/PatternArrows.hs
|
|
@@ -23,6 +23,7 @@ import qualified Control.Category as C
|
|
import Control.Category ((>>>))
|
|
import qualified Control.Arrow as A
|
|
import Control.Arrow ((***), (<+>))
|
|
+import Data.Function (fix)
|
|
|
|
-- |
|
|
-- A first-order pattern match
|