Add pipeline utility functions

unisonweb · Aug 13, 2024 · d2c3486 · d2c3486
1 parent f2da08f
commit d2c3486
Showing 1 changed file with 19 additions and 0 deletions.
diff --git a/src/Lib/Util.elm b/src/Lib/Util.elm
@@ -66,6 +66,25 @@ decodeFailInvalid failMessage m =
             Decode.succeed a
 
 
+pipeMaybe : (b -> a -> a) -> Maybe b -> a -> a
+pipeMaybe f may a =
+    case may of
+        Just b ->
+            f b a
+
+        Nothing ->
+            a
+
+
+pipeIf : (a -> a) -> Bool -> a -> a
+pipeIf f cond a =
+    if cond then
+        f a
+
+    else
+        a
+
+
 decodeTag : Decode.Decoder String
 decodeTag =
     Decode.field "tag" Decode.string