aboutsummaryrefslogtreecommitdiff
path: root/src/client/Model/View/LoggedIn
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/Model/View/LoggedIn')
-rw-r--r--src/client/Model/View/LoggedIn/Account.elm19
1 files changed, 19 insertions, 0 deletions
diff --git a/src/client/Model/View/LoggedIn/Account.elm b/src/client/Model/View/LoggedIn/Account.elm
new file mode 100644
index 0000000..410345c
--- /dev/null
+++ b/src/client/Model/View/LoggedIn/Account.elm
@@ -0,0 +1,19 @@
+module Model.View.LoggedIn.Account
+ ( Account
+ , initAccount
+ ) where
+
+import Model.Payers exposing (..)
+
+type alias Account =
+ { payers : Payers
+ , income : Maybe Int
+ , visibleDetail : Bool
+ }
+
+initAccount : Payers -> Maybe Int -> Account
+initAccount payers income =
+ { payers = payers
+ , income = income
+ , visibleDetail = False
+ }