From 166cd04e4b28770ede854dafc9ae30eae64102fe Mon Sep 17 00:00:00 2001 From: Joris Date: Mon, 28 Mar 2016 17:51:14 +0200 Subject: Create an empty but reachable user page --- src/client/elm/LoggedIn/Home/Monthly/Model.elm | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 src/client/elm/LoggedIn/Home/Monthly/Model.elm (limited to 'src/client/elm/LoggedIn/Home/Monthly/Model.elm') 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 + } -- cgit v1.2.3