diff options
| author | malcolm <unknown> | 2002-12-18 10:42:09 +0000 |
|---|---|---|
| committer | malcolm <unknown> | 2002-12-18 10:42:09 +0000 |
| commit | ec173cb46ec0f9375e12880671a7d20b4b4b5ec6 (patch) | |
| tree | 1538fdad9cf291606de62894aa570cf3bfb824ee /libraries/base/Control/Arrow.hs | |
| parent | 74357f56d3ee6601244173a4a39e81e4129a4012 (diff) | |
| download | haskell-ec173cb46ec0f9375e12880671a7d20b4b4b5ec6.tar.gz | |
[project @ 2002-12-18 10:42:09 by malcolm]
Make it work with nhc98.
Diffstat (limited to 'libraries/base/Control/Arrow.hs')
| -rw-r--r-- | libraries/base/Control/Arrow.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/libraries/base/Control/Arrow.hs b/libraries/base/Control/Arrow.hs index fd1552a057..f6ee713d37 100644 --- a/libraries/base/Control/Arrow.hs +++ b/libraries/base/Control/Arrow.hs @@ -100,7 +100,9 @@ instance Arrow (->) where f >>> g = g . f first f = f *** id second f = id *** f - (f *** g) ~(x,y) = (f x, g y) +-- (f *** g) ~(x,y) = (f x, g y) +-- sorry, although the above defn is fully H'98, nhc98 can't parse it. + (***) f g ~(x,y) = (f x, g y) -- | Kleisli arrows of a monad. |