From cfca18262c1ff48dcb683ddab7d03cf8e55573ff Mon Sep 17 00:00:00 2001
From: Joris
Date: Fri, 24 Mar 2017 09:21:04 +0000
Subject: Features/categories

---
 src/client/elm/Utils/Cmd.elm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/client/elm/Utils/Cmd.elm')

diff --git a/src/client/elm/Utils/Cmd.elm b/src/client/elm/Utils/Cmd.elm
index 8b79446..5f41cbe 100644
--- a/src/client/elm/Utils/Cmd.elm
+++ b/src/client/elm/Utils/Cmd.elm
@@ -7,8 +7,8 @@ import Platform.Cmd as Cmd
 
 pipeUpdate : (model, Cmd msg) -> (model -> (model, Cmd msg)) -> (model, Cmd msg)
 pipeUpdate (model, cmd) f =
-  let (model', cmd') = f model
-  in  (model', Cmd.batch [ cmd, cmd' ])
+  let (newModel, newCmd) = f model
+  in  (newModel, Cmd.batch [ cmd, newCmd ])
 
 (:>) : (m, Cmd a) -> (m -> (m, Cmd a)) -> (m, Cmd a)
 (:>) = pipeUpdate
-- 
cgit v1.2.3