diff options
| author | ross <unknown> | 2005-01-16 12:52:21 +0000 |
|---|---|---|
| committer | ross <unknown> | 2005-01-16 12:52:21 +0000 |
| commit | 4edfa307e8ed89accc5272acf88944b154f46015 (patch) | |
| tree | 23f8a40097b65da83e85dbed945705f4e1260e68 /libraries/base/Control/Arrow.hs | |
| parent | be5f3d736b59a724c21abee252470a63f7067d8e (diff) | |
| download | haskell-4edfa307e8ed89accc5272acf88944b154f46015.tar.gz | |
[project @ 2005-01-16 12:52:21 by ross]
added runKleisli as suggested by David Menendez
Diffstat (limited to 'libraries/base/Control/Arrow.hs')
| -rw-r--r-- | libraries/base/Control/Arrow.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/Control/Arrow.hs b/libraries/base/Control/Arrow.hs index e439bfcbd7..2710be6e9c 100644 --- a/libraries/base/Control/Arrow.hs +++ b/libraries/base/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) |