aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/Model
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/elm/Model')
-rw-r--r--src/client/elm/Model/Action/AddPaymentAction.elm11
-rw-r--r--src/client/elm/Model/View/LoggedIn/AddPayment.elm29
2 files changed, 0 insertions, 40 deletions
diff --git a/src/client/elm/Model/Action/AddPaymentAction.elm b/src/client/elm/Model/Action/AddPaymentAction.elm
deleted file mode 100644
index 2d4f92a..0000000
--- a/src/client/elm/Model/Action/AddPaymentAction.elm
+++ /dev/null
@@ -1,11 +0,0 @@
-module Model.Action.AddPaymentAction
- ( AddPaymentAction(..)
- ) where
-
-type AddPaymentAction =
- NoOp
- | UpdateName String
- | UpdateCost String
- | AddError (Maybe String) (Maybe String)
- | ToggleFrequency
- | WaitingServer
diff --git a/src/client/elm/Model/View/LoggedIn/AddPayment.elm b/src/client/elm/Model/View/LoggedIn/AddPayment.elm
deleted file mode 100644
index c7680bb..0000000
--- a/src/client/elm/Model/View/LoggedIn/AddPayment.elm
+++ /dev/null
@@ -1,29 +0,0 @@
-module Model.View.LoggedIn.AddPayment
- ( AddPayment
- , initAddPayment
- ) where
-
-import Result as Result exposing (Result(..))
-import Json.Decode exposing ((:=))
-
-import Model.Translations exposing (..)
-import Model.Payment exposing (PaymentFrequency(..))
-
-type alias AddPayment =
- { name : String
- , nameError : Maybe String
- , cost : String
- , costError : Maybe String
- , frequency : PaymentFrequency
- , waitingServer : Bool
- }
-
-initAddPayment : PaymentFrequency -> AddPayment
-initAddPayment frequency =
- { name = ""
- , nameError = Nothing
- , cost = ""
- , costError = Nothing
- , frequency = frequency
- , waitingServer = False
- }