URL Change Reactor

main.elm

update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
    case msg of
        UrlChange location ->
            let
                ( nextPhrase, nextPhrases ) =
                    nextLineAndCycleList model.phrases
            in
                { model
                    | location = location
                    , phrase = nextPhrase
                    , phrases = nextPhrases
                }
                    ! []