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/Update.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/Update.elm')
| -rw-r--r-- | src/client/Update.elm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/client/Update.elm b/src/client/Update.elm index 6eedb7f..b96d899 100644 --- a/src/client/Update.elm +++ b/src/client/Update.elm @@ -9,6 +9,7 @@ import Model.Payment exposing (Payments) type Action = NoOp + | Forbidden | UpdatePayments Payments actions : Signal.Mailbox Action @@ -19,5 +20,7 @@ updateModel action model = case action of NoOp -> model + Forbidden -> + { model | forbiddenAccess <- True } UpdatePayments payments -> - { model | payments <- payments } + { model | payments <- Just payments } |