Simple ADT example

Main.purs

module Main where

import Prelude
import Effect (Effect)
import Effect.Console as Console
import TryPureScript (render, withConsole)


data SchoolPerson = Teacher | Director | Student String

greeting :: SchoolPerson -> String
greeting = case _ of
  Teacher -> "Hey Professor!"
  Director -> "Hello Director."
  Student "Richard" -> "Still here Ricky?"
  Student anyOtherName -> "Hey, " <> anyOtherName <> "."
  
main :: Effect Unit
main = render =<< withConsole do
  Console.logShow (greeting (Student "Richard"))