From: ross <unknown>
Date: Sun, 16 Jan 2005 12:52:21 +0000 (+0000)
Subject: [project @ 2005-01-16 12:52:21 by ross]
X-Git-Tag: nhc98-1-18-release~106
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5fbb35b557b63cd9fdf6d12999d5a05adeef2534;p=haskell-directory.git

[project @ 2005-01-16 12:52:21 by ross]
added runKleisli as suggested by David Menendez
---

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)