Fetching payments and showing them in a table

1 files changed, 23 insertions, 0 deletions

diff --git a/src/client/Update.elm b/src/client/Update.elm
new file mode 100644
index 0000000..6eedb7f
--- /dev/null
+++ b/src/client/Update.elm
@@ -0,0 +1,23 @@
+module Update
+  ( Action(..)
+  , actions
+  , updateModel
+  ) where
+
+import Model exposing (Model)
+import Model.Payment exposing (Payments)
+
+type Action =
+  NoOp
+  | UpdatePayments Payments
+
+actions : Signal.Mailbox Action
+actions = Signal.mailbox NoOp
+
+updateModel : Action -> Model -> Model
+updateModel action model =
+  case action of
+    NoOp ->
+      model
+    UpdatePayments payments ->
+      { model | payments <- payments }