X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Control%2FArrow.hs;fp=Control%2FArrow.hs;h=2710be6e9c469e3b05da06b1013ad64e4eac610b;hb=5fbb35b557b63cd9fdf6d12999d5a05adeef2534;hp=e439bfcbd7fd2bd4e5cde9a6eeafaab0cb3b76c2;hpb=358b5a7600d4ceeab5822ec3e226522072acd1aa;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)