diff options
| author | Joris | 2015-09-07 12:24:56 +0200 |
|---|---|---|
| committer | Joris | 2015-09-07 12:24:56 +0200 |
| commit | c1ec9b40fa84be2fd7067251461eda64d3bd8b74 (patch) | |
| tree | fe10248371e1eb447684113452c14e3bbcb41f57 /src/client/Main.elm | |
| parent | 1d6a75b8321f324baa5f5421ce9f85637e8a706d (diff) | |
| download | budget-c1ec9b40fa84be2fd7067251461eda64d3bd8b74.tar.gz budget-c1ec9b40fa84be2fd7067251461eda64d3bd8b74.tar.bz2 budget-c1ec9b40fa84be2fd7067251461eda64d3bd8b74.zip | |
Fixing logout page
Diffstat (limited to 'src/client/Main.elm')
| -rw-r--r-- | src/client/Main.elm | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/src/client/Main.elm b/src/client/Main.elm index c2ba408..e59692a 100644 --- a/src/client/Main.elm +++ b/src/client/Main.elm @@ -57,14 +57,17 @@ port initView = Just msg -> Signal.send actions.address (SignInError msg) Nothing -> - Task.andThen getUsers <| \users -> - Task.andThen whoAmI <| \me -> - Task.andThen getMonthlyPayments <| \monthlyPayments -> - Task.andThen getPayments <| \payments -> - Task.andThen getPaymentsCount <| \paymentsCount -> - Task.andThen getPayers <| \payers -> - Signal.send actions.address (GoLoggedInView users me monthlyPayments payments paymentsCount payers) - |> flip Task.onError (\_ -> Signal.send actions.address GoSignInView) + Task.onError goLoggedInView (\_ -> Signal.send actions.address GoSignInView) + +goLoggedInView : Task Http.Error () +goLoggedInView = + Task.andThen getUsers <| \users -> + Task.andThen whoAmI <| \me -> + Task.andThen getMonthlyPayments <| \monthlyPayments -> + Task.andThen getPayments <| \payments -> + Task.andThen getPaymentsCount <| \paymentsCount -> + Task.andThen getPayers <| \payers -> + Signal.send actions.address (GoLoggedInView users me monthlyPayments payments paymentsCount payers) getUsers : Task Http.Error Users getUsers = Http.get usersDecoder "/users" |