gistfile1.txt

data Options = Local | Seasonal | LongDistance
foreign import showUI :: forall eff. (Option -> Eff eff Options)

main = do
  options <- showUI Local
  
  case options of
    Local -> log "local"
    Seasonal -> log "Seasonal"
    LongDistance -> log "LongDistance"


--- JS --- 
exports.showUI = function(screenName) {
  return function() {
    console.log(screenName.constructor.name)
    
    return "Local".
  }
}