From 8f17ff4183b37f932aa9a49ee89a682f734cac88 Mon Sep 17 00:00:00 2001
From: malcolm <unknown>
Date: Wed, 18 Dec 2002 10:42:09 +0000
Subject: [PATCH] [project @ 2002-12-18 10:42:09 by malcolm] Make it work with
 nhc98.

---
 Control/Arrow.hs |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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