From: malcolm <unknown>
Date: Wed, 18 Dec 2002 10:42:09 +0000 (+0000)
Subject: [project @ 2002-12-18 10:42:09 by malcolm]
X-Git-Tag: nhc98-1-18-release~779
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8f17ff4183b37f932aa9a49ee89a682f734cac88;p=haskell-directory.git

[project @ 2002-12-18 10:42:09 by malcolm]
Make it work with nhc98.
---

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