From e10531ba4e60c8709088798763ae3bae6608f9c9 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 6 Sep 2015 12:39:03 +0200
Subject: Show montly payments with an expandable mechanism

---
 src/client/Model/View/Payment/Monthly.elm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 src/client/Model/View/Payment/Monthly.elm

(limited to 'src/client/Model/View/Payment')

diff --git a/src/client/Model/View/Payment/Monthly.elm b/src/client/Model/View/Payment/Monthly.elm
new file mode 100644
index 0000000..15a5f2e
--- /dev/null
+++ b/src/client/Model/View/Payment/Monthly.elm
@@ -0,0 +1,17 @@
+module Model.View.Payment.Monthly
+  ( Monthly
+  , initMonthly
+  ) where
+
+import Model.Payment exposing (Payments)
+
+type alias Monthly =
+  { payments : Payments
+  , visibleDetail : Bool
+  }
+
+initMonthly : Payments -> Monthly
+initMonthly payments =
+  { payments = payments
+  , visibleDetail = False
+  }
-- 
cgit v1.2.3