[project @ 1997-06-05 23:02:05 by sof]
authorsof <unknown>
Thu, 5 Jun 1997 23:02:05 +0000 (23:02 +0000)
committersof <unknown>
Thu, 5 Jun 1997 23:02:05 +0000 (23:02 +0000)
added Int Foo instance

GHC_ONLY/cg027/Main.hs

index 0503c4c..0c58972 100644 (file)
@@ -6,6 +6,8 @@ class (Num a, Integral a) => Foo a
 main = putStr (shows (f ((fromInteger 21)::Int)
                        ((fromInteger 37))) "\n")
 
+instance Foo Int
+
 f :: Foo a => a -> a -> Integer
 
 f a b = toInteger (a + b)