Skip to content

Instantly share code, notes, and snippets.

@chrisschreiner
Created December 9, 2015 20:04
Show Gist options
  • Save chrisschreiner/892b1f6c58e5fcddc550 to your computer and use it in GitHub Desktop.
Save chrisschreiner/892b1f6c58e5fcddc550 to your computer and use it in GitHub Desktop.
port runner : Task Http.RawError ()
port runner = State.askForData q `Task.andThen` report
report : Http.Response -> Task x ()
report res =
Signal.send contentMailbox.address (toString res.value)
contentMailbox : Signal.Mailbox String
contentMailbox = Signal.mailbox "x"
main = Signal.map text contentMailbox.signal
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment