Main.purs

module Main where

import Prelude

import Control.Monad.Eff.Console (log)
import TryPureScript (render, withConsole)

data Weekday = Monday
             | Tuesday
             | Wednesday
             | Thursday
             | Friday
             
             
printDay Monday     = log "Monday"
printDay Tuesday    = log "Tuesday"
printDay Wednesday  = log "Wednesday"
printDay Thursday   = log "Thursday"
printDay Friday     = log "Friday"

main = render =<< withConsole do
  printDay Monday