Move logged data to LoggedIn component

1 files changed, 14 insertions, 0 deletions

diff --git a/src/client/elm/Utils/Tuple.elm b/src/client/elm/Utils/Tuple.elm
new file mode 100644
index 0000000..d9246f6
--- /dev/null
+++ b/src/client/elm/Utils/Tuple.elm
@@ -0,0 +1,14 @@
+module Utils.Tuple
+  ( mapFst
+  , mapSnd
+  , mapBoth
+  ) where
+
+mapFst : (a -> x) -> (a, b) -> (x, b)
+mapFst f (a, b) = (f a, b)
+
+mapSnd : (b -> x) -> (a, b) -> (a, x)
+mapSnd f (a, b) = (a, f b)
+
+mapBoth : (a -> x) -> (b -> y) -> (a, b) -> (x, y)
+mapBoth f g (a, b) = (f a, g b)