Create an empty but reachable user page

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])