shithub: MicroHs

ref: 63919e14c893dd09c3dc6ac6211becb794cfa9be
dir: /tests/DfltSig.hs/

View raw version 
module DfltSig where

class Def a where
  def :: a
  default def :: Enum a => a
  def = toEnum 0

instance Def Int
instance Def Char
instance Def [a] where def = []

main :: IO ()
main = print (def::Int, def::Char,def::[Bool])