From cfca18262c1ff48dcb683ddab7d03cf8e55573ff Mon Sep 17 00:00:00 2001
From: Joris
Date: Fri, 24 Mar 2017 09:21:04 +0000
Subject: Features/categories

---
 src/client/elm/Utils/Maybe.elm | 19 +++++++++++++------
 1 file changed, 13 insertions(+), 6 deletions(-)

(limited to 'src/client/elm/Utils/Maybe.elm')

diff --git a/src/client/elm/Utils/Maybe.elm b/src/client/elm/Utils/Maybe.elm
index 4a94aa5..46456e1 100644
--- a/src/client/elm/Utils/Maybe.elm
+++ b/src/client/elm/Utils/Maybe.elm
@@ -1,7 +1,8 @@
 module Utils.Maybe exposing
   ( isJust
-  , catMaybes
-  , maybeToList
+  , cat
+  , toList
+  , orElse
   )
 
 isJust : Maybe a -> Bool
@@ -10,8 +11,8 @@ isJust maybe =
     Just _  -> True
     Nothing -> False
 
-catMaybes : List (Maybe a) -> List a
-catMaybes =
+cat : List (Maybe a) -> List a
+cat =
   List.foldr
     (\mb xs ->
       case mb of
@@ -20,8 +21,14 @@ catMaybes =
     )
     []
 
-maybeToList : Maybe a -> List a
-maybeToList mb =
+toList : Maybe a -> List a
+toList mb =
   case mb of
     Just a  -> [a]
     Nothing -> []
+
+orElse : Maybe a -> Maybe a -> Maybe a
+orElse mb1 mb2 =
+  case mb1 of
+    Just x -> Just x
+    Nothing -> mb2
-- 
cgit v1.2.3