aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/Dialog/Update.elm
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/elm/Dialog/Update.elm')
-rw-r--r--src/client/elm/Dialog/Update.elm24
1 files changed, 24 insertions, 0 deletions
diff --git a/src/client/elm/Dialog/Update.elm b/src/client/elm/Dialog/Update.elm
new file mode 100644
index 0000000..e1e2dba
--- /dev/null
+++ b/src/client/elm/Dialog/Update.elm
@@ -0,0 +1,24 @@
+module Dialog.Update exposing
+ ( update
+ )
+
+import Form exposing (Form)
+
+import Dialog.Msg as Dialog
+import Dialog.Model as Dialog
+
+update : Dialog.Msg -> Dialog.Model -> (Dialog.Model, Cmd Dialog.Msg)
+update msg model =
+ case msg of
+
+ Dialog.NoOp ->
+ ( model
+ , Cmd.none
+ )
+
+ Dialog.AddPaymentMsg formMsg ->
+ ( { model
+ | addPayment = Form.update formMsg model.addPayment
+ }
+ , Cmd.none
+ )