From 0041c546869f0a7fd59a085cc75b481237b6c380 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Fri, 10 Jul 2015 00:03:42 +0200
Subject: Fetching payments and showing them in a table

---
 src/client/Update.elm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 src/client/Update.elm

(limited to 'src/client/Update.elm')

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 }
-- 
cgit v1.2.3