io monad redux

iomonad.coffee

IO = (doFirst) ->
  io = () -> doFirst()
  io.bind = (f) -> IO(-> f(doFirst())())
  io

ioAlert = (x) -> IO(-> alert(x))
ioConfirm = (x) -> IO(-> confirm(x))
ioPrompt = (x) -> IO(-> prompt(x))

main = -> 
  ioPrompt("What is your name?").bind (name) -> \
  ioAlert("Hello #{name}.").bind () -> \
  ioAlert("welcome")

main2 = ->
  m = ioPrompt("What is your name?")
  f = (name) -> ioAlert("Hello #{name}!")
  g = () -> ioAlert("welcome")
  m.bind(f).bind(g)

main3 = ->
  m = ioPrompt("What is your name?")
  f = (name) -> ioAlert("Hello #{name}!")
  g = () -> ioAlert("welcome")
  m.bind (name) -> f(name).bind(g)

main3()()