NoRedInk/noredink-ui
1
1
Fork 0
mirror of https://github.com/NoRedInk/noredink-ui.git synced 2024-12-25 06:33:09 +03:00
Code Issues Packages Projects Releases Wiki Activity

get navigation messages in order

Browse Source
This commit is contained in:
Brooke Angel 2018-12-07 14:10:34 -08:00 committed by Gavin Panella
parent fa5f4ddbcd
commit 63e47f4cc8
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
styleguide-app/Update.elm
View File

@ -1,7 +1,7 @@
module Update exposing (Msg(..), subscriptions, update)
import Browser exposing (UrlRequest(..))
import Browser.Navigation exposing (pushUrl)
import Browser.Navigation
import Model exposing (..)
import NriModules as NriModules
import Routes
@ -30,14 +30,13 @@ update action model =
OnUrlRequest request ->
case request of
Internal loc ->
( { model | route = Routes.fromLocation loc }, pushUrl model.navigationKey (Url.toString loc) )
( model, Browser.Navigation.pushUrl model.navigationKey (Url.toString loc) )
External loc ->
( model, pushUrl model.navigationKey loc )
( model, Browser.Navigation.load loc )
OnUrlChange route ->
-- TODO
( model, Cmd.none )
( { model | route = Routes.fromLocation route }, Cmd.none )
NoOp ->
( model, Cmd.none )