mirror of
https://github.com/correl/elm-exercise.git
synced 2024-11-27 19:19:55 +00:00
34 lines
795 B
Elm
34 lines
795 B
Elm
|
module Demo.Button (..) where
|
||
|
|
|
||
|
|
import Html exposing (Html)
|
||
|
|
import Html.Attributes exposing (class, href)
|
||
|
|
import Html.Events exposing (onClick)
|
||
|
|
import Demo.Connection as Connection
|
||
|
|
|
||
|
|
|
||
|
|
view : Signal.Address Connection.Action -> Connection.State -> Html
|
||
|
|
view address state =
|
||
|
|
case state of
|
||
|
|
Connection.Offline ->
|
||
|
|
Html.a
|
||
|
|
[ class "button connect"
|
||
|
|
, href "#"
|
||
|
|
, onClick address Connection.Connect
|
||
|
|
]
|
||
|
|
[ Html.text "Connect" ]
|
||
|
|
|
||
|
|
Connection.Connecting ->
|
||
|
|
Html.a
|
||
|
|
[ class "button connecting"
|
||
|
|
, href "#"
|
||
|
|
]
|
||
|
|
[ Html.text "Connecting" ]
|
||
|
|
|
||
|
|
Connection.Online ->
|
||
|
|
Html.a
|
||
|
|
[ class "button disconnect"
|
||
|
|
, href "#"
|
||
|
|
, onClick address Connection.Disconnect
|
||
|
|
]
|
||
|
|
[ Html.text "Disconnect" ]
|