Commit 76f1f3ed authored by sof's avatar sof
Browse files

[project @ 1997-06-05 23:02:05 by sof]

added Int Foo instance
parent 3b6ff664
......@@ -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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment