diff options
Diffstat (limited to 'website/sandbox/learnpianochords/src/Main.elm')
| -rw-r--r-- | website/sandbox/learnpianochords/src/Main.elm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/website/sandbox/learnpianochords/src/Main.elm b/website/sandbox/learnpianochords/src/Main.elm index d583e3fcf9a3..b066fb2f6f92 100644 --- a/website/sandbox/learnpianochords/src/Main.elm +++ b/website/sandbox/learnpianochords/src/Main.elm @@ -16,7 +16,10 @@ subscriptions model = Sub.none else - Time.every (model.tempo |> Misc.bpmToMilliseconds |> toFloat) (\_ -> State.NextChord) + Sub.batch + [ Time.every (model.tempo * 2 |> Misc.bpmToMilliseconds |> toFloat) (\_ -> State.ToggleFlashCard) + , Time.every (model.tempo |> Misc.bpmToMilliseconds |> toFloat) (\_ -> State.NextChord) + ] view : State.Model -> Html State.Msg |