DEBSOURCES
Skip Quicknav
sources / bali-phy / 4.0-1 / tests / haskell / Types / 2 / Main.hs
123456789
class Foo a where foo :: a -> a -> a instance Foo Int where foo = (+) bar x y = x + (foo y 1) main = do putStrLn $ show $ bar 2 3