diff options
| author | Joris | 2016-03-28 17:51:14 +0200 |
|---|---|---|
| committer | Joris | 2016-03-28 17:51:14 +0200 |
| commit | 166cd04e4b28770ede854dafc9ae30eae64102fe (patch) | |
| tree | 2245a31243a165acc6f7355534da44cfd17e6038 /src/client/elm/Utils/Effects.elm | |
| parent | b0d80a5458d7ba4546e5f01f5b6398ea6d23f981 (diff) | |
| download | budget-166cd04e4b28770ede854dafc9ae30eae64102fe.tar.gz budget-166cd04e4b28770ede854dafc9ae30eae64102fe.tar.bz2 budget-166cd04e4b28770ede854dafc9ae30eae64102fe.zip | |
Create an empty but reachable user page
Diffstat (limited to 'src/client/elm/Utils/Effects.elm')
| -rw-r--r-- | src/client/elm/Utils/Effects.elm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/client/elm/Utils/Effects.elm b/src/client/elm/Utils/Effects.elm new file mode 100644 index 0000000..544352f --- /dev/null +++ b/src/client/elm/Utils/Effects.elm @@ -0,0 +1,10 @@ +module Utils.Effects + ( andThen + ) where + +import Effects exposing (Effects) + +andThen : (a, Effects b) -> (a -> (a, Effects b)) -> (a, Effects b) +andThen a b = case a of + (ma, ea) -> case b ma of + (mb, eb) -> (mb, Effects.batch [ea, eb]) |