[project @ 2003-02-18 20:39:56 by panne]

[ghc-base.git] / Control / Arrow.hs

diff --git a/Control/Arrow.hs b/Control/Arrow.hs
index fd1552a..f6ee713 100644 (file)
--- a/Control/Arrow.hs
+++ b/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.