Fix more warnings

[ghc-base.git] / Control / Arrow.hs

diff --git a/Control/Arrow.hs b/Control/Arrow.hs
index 0837d6b..ed9fa73 100644 (file)
--- a/Control/Arrow.hs
+++ b/Control/Arrow.hs
@@ -33,7 +33,9 @@ module Control.Arrow (
                 -- * Arrow application
                 ArrowApply(..), ArrowMonad(..), leftApp,
                 -- * Feedback
-                ArrowLoop(..)
+                ArrowLoop(..),
+
+                (>>>), (<<<) -- reexported
         ) where
 
 import Prelude hiding (id,(.))
@@ -162,7 +164,7 @@ class Arrow a => ArrowZero a where
         zeroArrow :: a b c
 
 instance MonadPlus m => ArrowZero (Kleisli m) where
-        zeroArrow = Kleisli (\x -> mzero)
+        zeroArrow = Kleisli (\_ -> mzero)
 
 class ArrowZero a => ArrowPlus a where
         (<+>) :: a b c -> a b c -> a b c
@@ -253,7 +255,7 @@ instance Monad m => ArrowApply (Kleisli m) where
 newtype ArrowApply a => ArrowMonad a b = ArrowMonad (a () b)
 
 instance ArrowApply a => Monad (ArrowMonad a) where
-        return x = ArrowMonad (arr (\z -> x))
+        return x = ArrowMonad (arr (\_ -> x))
         ArrowMonad m >>= f = ArrowMonad (m >>>
                         arr (\x -> let ArrowMonad h = f x in (h, ())) >>>
                         app)