[project @ 1997-06-20 09:09:38 by sof]

Added Eval (a->b) instance

diff --git a/ghc/lib/ghc/PrelBase.lhs b/ghc/lib/ghc/PrelBase.lhs
index 97ac8c3..aa8ee6f 100644 (file)
--- a/ghc/lib/ghc/PrelBase.lhs
+++ b/ghc/lib/ghc/PrelBase.lhs
@@ -632,6 +632,8 @@ data Integer        = J# Int# Int# ByteArray#
 %*********************************************************
 
 \begin{code}
+instance Eval (a -> b) 
+
 instance  Show (a -> b)  where
     showsPrec p f  =  showString "<<function>>"
     showList ls           = showList__ (showsPrec 0) ls