diff options
Diffstat (limited to 'src/client/elm/Update.elm')
-rw-r--r-- | src/client/elm/Update.elm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/client/elm/Update.elm b/src/client/elm/Update.elm index d3e82de..23e0789 100644 --- a/src/client/elm/Update.elm +++ b/src/client/elm/Update.elm @@ -26,6 +26,7 @@ import SignIn.Msg as SignInMsg import SignIn.Update as SignInUpdate import Dialog +import Dialog.Update as DialogUpdate import Utils.Http exposing (errorKey) @@ -68,7 +69,7 @@ update msg model = ) Dialog dialogMsg -> - let (newDialog, command) = Dialog.update dialogMsg model.view model.dialog + let (newDialog, command) = Dialog.update DialogUpdate.update dialogMsg model.dialog.model model.dialog in ( { model | dialog = newDialog } , command ) @@ -94,7 +95,7 @@ applyLoggedIn model loggedInMsg = urlUpdate : Result String Page -> Model -> (Model, Cmd Msg) urlUpdate result model = - case Debug.log "urlUpdate" result of + case result of Err _ -> (model, Navigation.modifyUrl (Page.toHash model.page)) Ok page -> |