Slide 24
Slide 24 text
Navigation
-- your nav type
yourParserFunc : Navigation.Location -> List String
yourParserFunc loc =
loc.hash
|> split "/"
|> List.filter (\seg -> seg /= "" && seg /= "#")
main =
Navigation.program
(Navigation.makeParser yourParserFunc)
{ init = init
, update = update -- Msg -> Model -> ( Model, Cmd Msg )
, urlUpdate = urlUpdate -- List String -> Model -> ( Model, Cmd Msg )
, view = view
, subscriptions = subscriptions
}