shithub: MicroHs

ref: 8d637be00504121ee2da2d5daf21e2c93e6d6951
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])