mysteryButton.elm

import Html
import Html.Events as Events
import Http
import Json.Decode as Json exposing ((:=))
import Signal
import Task

main = mysteryButton2

-- before

mysteryButton1 = Html.button [] [ Html.text "Click me" ]

-- after

mysteryButton2 = Html.button [
  Events.onClick clicks.address "mysteryButton2"
  ] [ Html.text "Click me" ]

clicks = Signal.mailbox ""

port logClicks : Signal (Task.Task () String)
port logClicks = Signal.map logClick buttonClicks.signal

-- see log by going to http://requestb.in/180fooo1?inspect
logClick : String -> Task.Task () String
logClick id = 
  Task.mapError (\_ -> ())
  (Task.map (\_ -> "ok")
  (Http.getString ("http://requestb.in/180fooo1?id=" ++ id)))