diff options
| author | Joris | 2016-06-03 20:27:16 +0200 |
|---|---|---|
| committer | Joris | 2016-06-03 20:27:16 +0200 |
| commit | 8e3a7bf1cb83bbb6e3dcd54308eefa52a29cd679 (patch) | |
| tree | d6ba0985a534a0e2e317b1edb0d4c999119d87ff /src/client/elm/Utils/Cmd.elm | |
| parent | 3a88115d118f8256f3ff034dc359df42a9e4051c (diff) | |
| download | budget-8e3a7bf1cb83bbb6e3dcd54308eefa52a29cd679.tar.gz budget-8e3a7bf1cb83bbb6e3dcd54308eefa52a29cd679.tar.bz2 budget-8e3a7bf1cb83bbb6e3dcd54308eefa52a29cd679.zip | |
Migrate to elm 0.17
Diffstat (limited to 'src/client/elm/Utils/Cmd.elm')
| -rw-r--r-- | src/client/elm/Utils/Cmd.elm | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/src/client/elm/Utils/Cmd.elm b/src/client/elm/Utils/Cmd.elm new file mode 100644 index 0000000..1eee6f3 --- /dev/null +++ b/src/client/elm/Utils/Cmd.elm @@ -0,0 +1,18 @@ +module Utils.Cmd exposing + ( pipeUpdate + , (:>) + ) + +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' ]) + +(:>) : (m, Cmd a) -> (m -> (m, Cmd a)) -> (m, Cmd a) +(:>) = pipeUpdate + +infixl 0 :> |