From 69721cdc7d7e4d3b3b47b22be3476bd0e70adc67 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 24 Aug 1998 11:05:37 +0000
Subject: [PATCH] [project @ 1998-08-24 11:05:37 by sof] Since we're unable to
 deal with seq'ing over function values, comment out the
 Eval instance for (->)

---
 ghc/lib/std/PrelBase.lhs |    5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/ghc/lib/std/PrelBase.lhs b/ghc/lib/std/PrelBase.lhs
index ba5741b..f256122 100644
--- a/ghc/lib/std/PrelBase.lhs
+++ b/ghc/lib/std/PrelBase.lhs
@@ -674,7 +674,10 @@ data Integer	= J# Int# Int# ByteArray#
 %*********************************************************
 
 \begin{code}
-instance Eval (a -> b) 
+-- The current implementation of seq# cannot handle function types,
+-- so we leave this instance out rather than make false promises.
+--
+-- instance Eval (a -> b) 
 
 instance  Show (a -> b)  where
     showsPrec p f  =  showString "<<function>>"
-- 
1.7.10.4