From a6727f104f808e533052f2bd83bc89cd6bfa0522 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sun, 19 Jul 2015 00:45:42 +0200
Subject: Adding UI to sign in and sign out

---
 src/client/Model.elm | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

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

diff --git a/src/client/Model.elm b/src/client/Model.elm
index 6888676..8005429 100644
--- a/src/client/Model.elm
+++ b/src/client/Model.elm
@@ -3,17 +3,13 @@ module Model
   , initialModel
   ) where
 
-import List
-
-import Model.Payment exposing (Payments)
+import Model.View exposing (..)
 
 type alias Model =
-  { payments : Maybe Payments
-  , forbiddenAccess : Bool
+  { view : View
   }
 
 initialModel : Model
 initialModel =
-  { payments = Nothing
-  , forbiddenAccess = False
+  { view = LoadingView
   }
-- 
cgit v1.2.3