X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Control%2FArrow.hs;h=2710be6e9c469e3b05da06b1013ad64e4eac610b;hb=66681b296084bc3683cab50986402e5da27f5912;hp=e439bfcbd7fd2bd4e5cde9a6eeafaab0cb3b76c2;hpb=949eab21263f5aa45ab4ba9ec7950eef6f57f710;p=ghc-base.git

diff --git a/Control/Arrow.hs b/Control/Arrow.hs
index e439bfc..2710be6 100644
--- a/Control/Arrow.hs
+++ b/Control/Arrow.hs
@@ -126,7 +126,7 @@ instance Arrow (->) where
 
 -- | Kleisli arrows of a monad.
 
-newtype Kleisli m a b = Kleisli (a -> m b)
+newtype Kleisli m a b = Kleisli { runKleisli :: a -> m b }
 
 instance Monad m => Arrow (Kleisli m) where
 	arr f = Kleisli (return . f)