Person.purs

module Main where

import Prelude

data Person = Person { name :: String, age :: Number }

showPerson :: Person -> String
showPerson = \p -> case p of
  Person o -> o.name ++ ", aged " ++ show o.age

main = Control.Monad.Eff.Console.log "Done"