, debouncing : Maybe ( Field, Float )
update : Msg -> Model -> (Model, Cmd Msg)
{ model | debouncing = Just ( pass, 500 ) }
Just ( pass, secsLeft ) ->
( { model | debouncing = Nothing }
( pass, secsLeft - checkEveryMs )
subscriptions : Model -> Sub Msg
subscriptions { debouncing } =
Time.every 100 (always TimePassed)