aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/Utils
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/elm/Utils')
-rw-r--r--src/client/elm/Utils/Tuple.elm14
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)