Create an empty but reachable user page

1 files changed, 17 insertions, 0 deletions

diff --git a/src/client/elm/LoggedIn/Home/Monthly/Model.elm b/src/client/elm/LoggedIn/Home/Monthly/Model.elm
new file mode 100644
index 0000000..7f6fd4c
--- /dev/null
+++ b/src/client/elm/LoggedIn/Home/Monthly/Model.elm
@@ -0,0 +1,17 @@
+module LoggedIn.Home.Monthly.Model
+  ( Model
+  , init
+  ) where
+
+import Model.Payment exposing (Payments)
+
+type alias Model =
+  { payments : Payments
+  , visibleDetail : Bool
+  }
+
+init : Payments -> Model
+init payments =
+  { payments = payments
+  , visibleDetail = False
+  }