From a7db22556b91bc7c499e010b4c051f4442ad8ce2 Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 29 Dec 2015 22:38:42 +0100
Subject: Using persona to validate emails

---
 src/client/elm/View/LoggedIn.elm | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 src/client/elm/View/LoggedIn.elm

(limited to 'src/client/elm/View/LoggedIn.elm')

diff --git a/src/client/elm/View/LoggedIn.elm b/src/client/elm/View/LoggedIn.elm
new file mode 100644
index 0000000..96916e0
--- /dev/null
+++ b/src/client/elm/View/LoggedIn.elm
@@ -0,0 +1,30 @@
+module View.LoggedIn
+  ( renderLoggedIn
+  ) where
+
+import Html exposing (..)
+import Html.Attributes exposing (..)
+
+import Model exposing (Model)
+import Model.Payment exposing (Payments)
+import Model.View.LoggedInView exposing (LoggedInView)
+
+import View.LoggedIn.Add exposing (addPayment)
+import View.LoggedIn.Monthly exposing (monthlyPayments)
+import View.LoggedIn.Account exposing (account)
+import View.LoggedIn.Table exposing (paymentsTable)
+import View.LoggedIn.Paging exposing (paymentsPaging)
+
+renderLoggedIn : Model -> LoggedInView -> Html
+renderLoggedIn model loggedInView =
+  div
+    [ class "loggedIn" ]
+    [ addPayment model loggedInView
+    , div
+        [ class "expandables" ]
+        [ account model loggedInView
+        , monthlyPayments model loggedInView
+        ]
+    , paymentsTable model loggedInView
+    , paymentsPaging loggedInView
+    ]
-- 
cgit v1.2.3