From 3486644b442a0800f645ec9ae7f3ce8fe2b3c9cd Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sat, 18 Jul 2015 18:29:46 +0200
Subject: Showing either the payment table or a forbidden message in the UI

---
 src/client/Update.elm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/client/Update.elm')

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 }
-- 
cgit v1.2.3