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/Model.elm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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

diff --git a/src/client/Model.elm b/src/client/Model.elm
index 50d0c06..6888676 100644
--- a/src/client/Model.elm
+++ b/src/client/Model.elm
@@ -8,10 +8,12 @@ import List
 import Model.Payment exposing (Payments)
 
 type alias Model =
-  { payments : Payments
+  { payments : Maybe Payments
+  , forbiddenAccess : Bool
   }
 
 initialModel : Model
 initialModel =
-  { payments = []
+  { payments = Nothing
+  , forbiddenAccess = False
   }
-- 
cgit v1.2.3