shithub: MicroHs

ref: 26622a01eee7b97946421aa8487fb5c1c11d6557
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])