shithub: MicroHs

ref: 30ed73a98df14cb18296e7d2178227e6392a8ff7
dir: /tests/Infer.hs/

View raw version 
module Infer(main) where

a = 'x'
f x = x
g x = [x,a]
h x = x + 1

xeven 0 = True
xeven n = xodd (n-1)
xodd 0 = False
xodd n = xeven (n-1)

main = do
  print a
  print (f (1::Int))
  print (f a)
  print (h (1::Int))
  print (even (2::Int))