diff options
| -rw-r--r-- | libraries/base/Control/Arrow.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libraries/base/Control/Arrow.hs b/libraries/base/Control/Arrow.hs index 2e2c4700a4..8a4bc2d22f 100644 --- a/libraries/base/Control/Arrow.hs +++ b/libraries/base/Control/Arrow.hs @@ -86,6 +86,7 @@ infixr 1 ^<<, <<^ -- which may be overridden for efficiency. class Category a => Arrow a where + {-# MINIMAL arr, (first | (***)) #-} -- | Lift a function to an arrow. arr :: (b -> c) -> a b c @@ -215,6 +216,7 @@ instance MonadPlus m => ArrowPlus (Kleisli m) where -- be overridden for efficiency. class Arrow a => ArrowChoice a where + {-# MINIMAL (left | (+++)) #-} -- | Feed marked inputs through the argument arrow, passing the -- rest through unchanged to the output. |