Sample elm snippets

typeannot.elm

import Html exposing (..)

-- union type for clipboard state
type ClipboardState = Active | Inactive | Other String

main = 
  text (toString report)

-- type anotation for reportState function
reportState : ClipboardState -> String

-- implimentation of reportState function
reportState x = 
  case x of
    Active -> "Active"
    Inactive -> "Inactive"
    _ -> "Unreconginsed State"

-- holds report
report : String
report =
  reportState (Other "Unrecognised")