purescript-0.7.2.0: examples/passing/IntAndChar.purs

module Main where

import Prelude
import Control.Monad.Eff
import Test.Assert

f 1 = 1
f _ = 0

g 'a' = 'a'
g _ = 'b'

main = do
  assert $ f 1 == 1
  assert $ f 0 == 0
  assert $ g 'a' == 'a'
  assert $ g 'b' == 'b'
  Control.Monad.Eff.Console.log "Done"