From: sof Date: Fri, 20 Jun 1997 09:09:38 +0000 (+0000) Subject: [project @ 1997-06-20 09:09:38 by sof] X-Git-Tag: Approximately_1000_patches_recorded~295 X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=848705ff3958b140cde0f7883fba62f540ea3542;p=ghc-hetmet.git [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 --- 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 "<>" showList ls = showList__ (showsPrec 0) ls