[commit: ghc] master: base: MINIMAL pragmas for Arrow/ArrowChoice (324e0ac)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/324e0ac650c85ac59c96965b17f2e292dd7e2de2/ghc

>---------------------------------------------------------------

commit 324e0ac650c85ac59c96965b17f2e292dd7e2de2
Author: Austin Seipp <austin at well-typed.com>
Date:   Fri Oct 16 15:56:18 2015 -0500

    base: MINIMAL pragmas for Arrow/ArrowChoice
    
    Summary: This was left off in the previous commits.
    
    Signed-off-by: Austin Seipp <austin at well-typed.com>
    
    Reviewed By: ekmett
    
    Differential Revision: https://phabricator.haskell.org/D1332


>---------------------------------------------------------------

324e0ac650c85ac59c96965b17f2e292dd7e2de2
 libraries/base/Control/Arrow.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/libraries/base/Control/Arrow.hs b/libraries/base/Control/Arrow.hs
index 2e2c470..8a4bc2d 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.