class


类型类
class.hs

class Ok a where
    ok :: a -> Bool
    
instance Ok Int where
    ok 0 = False
    ok _ = True
  
main = do
    print(ok(1::Int))
    print(ok(0::Int))


haskell keyword class