diff options
| author | Joris | 2016-06-25 15:10:03 +0200 |
|---|---|---|
| committer | Joris | 2016-06-25 22:09:04 +0200 |
| commit | 70720548c9af024dbb6080638ac8e5470c2213eb (patch) | |
| tree | a149bd6d8f1448de11ac4b0b41c52bc82052035a /src/client/elm/Update.elm | |
| parent | 4ce4de89a5400b0d8b9cddaa2922901a081fdaaa (diff) | |
| download | budget-70720548c9af024dbb6080638ac8e5470c2213eb.tar.gz budget-70720548c9af024dbb6080638ac8e5470c2213eb.tar.bz2 budget-70720548c9af024dbb6080638ac8e5470c2213eb.zip | |
Use the search to view either punctual or monthly payments
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 -> |