From 5fbb35b557b63cd9fdf6d12999d5a05adeef2534 Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Sun, 16 Jan 2005 12:52:21 +0000
Subject: [PATCH] [project @ 2005-01-16 12:52:21 by ross] added runKleisli as
 suggested by David Menendez

---
 Control/Arrow.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
1.7.10.4