diff options
Diffstat (limited to 'website/sandbox/chord-drill-sergeant/src/Tempo.elm')
-rw-r--r-- | website/sandbox/chord-drill-sergeant/src/Tempo.elm | 31 |
1 files changed, 18 insertions, 13 deletions
diff --git a/website/sandbox/chord-drill-sergeant/src/Tempo.elm b/website/sandbox/chord-drill-sergeant/src/Tempo.elm index de4fa32795f9..270cc5bd6dc6 100644 --- a/website/sandbox/chord-drill-sergeant/src/Tempo.elm +++ b/website/sandbox/chord-drill-sergeant/src/Tempo.elm @@ -4,19 +4,24 @@ import Html exposing (..) import Html.Attributes exposing (..) import Html.Events exposing (..) + type alias Props msg = - { tempo : Int - , handleIncrease : msg - , handleDecrease : msg - , handleInput : String -> msg - } + { tempo : Int + , handleIncrease : msg + , handleDecrease : msg + , handleInput : String -> msg + } + render : Props msg -> Html msg -render {tempo, handleIncrease, handleDecrease, handleInput} = - div [] [ p [] [ text ((String.fromInt tempo) ++ " BPM") ] - , button [ onClick handleDecrease ] [ text "Slower" ] - , input [ onInput handleInput - , placeholder "Set tempo..." - ] [] - , button [ onClick handleIncrease ] [ text "Faster" ] - ] +render { tempo, handleIncrease, handleDecrease, handleInput } = + div [] + [ p [] [ text (String.fromInt tempo ++ " BPM") ] + , button [ onClick handleDecrease ] [ text "Slower" ] + , input + [ onInput handleInput + , placeholder "Set tempo..." + ] + [] + , button [ onClick handleIncrease ] [ text "Faster" ] + ] |