fay-0.19: tests/unit.hs

module Unit where

main = case (f ()) of
  () -> print 123

  where f () = ()