diff options
Diffstat (limited to 'src/client/elm/Model')
-rw-r--r-- | src/client/elm/Model/Action/AddPaymentAction.elm | 11 | ||||
-rw-r--r-- | src/client/elm/Model/View/LoggedIn/AddPayment.elm | 29 |
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 - } |