diff options
author | Joris Guyonvarch | 2015-07-18 18:29:46 +0200 |
---|---|---|
committer | Joris Guyonvarch | 2015-07-18 18:29:46 +0200 |
commit | 3486644b442a0800f645ec9ae7f3ce8fe2b3c9cd (patch) | |
tree | 07cf31c37b09a2cb8bcb04380b91a640727888df /src/client/Main.elm | |
parent | b27a7914993f5a5a87160dc33431a6fa1f4ad323 (diff) | |
download | budget-3486644b442a0800f645ec9ae7f3ce8fe2b3c9cd.tar.gz budget-3486644b442a0800f645ec9ae7f3ce8fe2b3c9cd.tar.bz2 budget-3486644b442a0800f645ec9ae7f3ce8fe2b3c9cd.zip |
Showing either the payment table or a forbidden message in the UI
Diffstat (limited to 'src/client/Main.elm')
-rw-r--r-- | src/client/Main.elm | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/src/client/Main.elm b/src/client/Main.elm index e112144..bff5f23 100644 --- a/src/client/Main.elm +++ b/src/client/Main.elm @@ -27,10 +27,16 @@ model : Signal Model model = Signal.foldp updateModel initialModel actions.signal port fetchPayments : Task Http.Error () -port fetchPayments = getPayments `Task.andThen` report +port fetchPayments = + getPayments + |> flip Task.andThen reportSuccess + |> flip Task.onError reportError -report : Payments -> Task x () -report payments = Signal.send actions.address (UpdatePayments payments) +reportSuccess : Payments -> Task x () +reportSuccess payments = Signal.send actions.address (UpdatePayments payments) + +reportError : Http.Error -> Task x () +reportError error = Signal.send actions.address Forbidden getPayments : Task Http.Error Payments getPayments = Http.get paymentsDecoder "/payments" |