aboutsummaryrefslogtreecommitdiff
path: root/src/client/Utils/Maybe.elm
diff options
context:
space:
mode:
authorJoris2015-12-29 22:38:42 +0100
committerJoris2015-12-29 22:38:42 +0100
commita7db22556b91bc7c499e010b4c051f4442ad8ce2 (patch)
tree9f991523cee681bf179c191260b95672f1c44def /src/client/Utils/Maybe.elm
parentc79fa3e212e8bb49f950da3c3218e32e3b9df2ec (diff)
downloadbudget-a7db22556b91bc7c499e010b4c051f4442ad8ce2.tar.gz
budget-a7db22556b91bc7c499e010b4c051f4442ad8ce2.tar.bz2
budget-a7db22556b91bc7c499e010b4c051f4442ad8ce2.zip
Using persona to validate emails
Diffstat (limited to 'src/client/Utils/Maybe.elm')
-rw-r--r--src/client/Utils/Maybe.elm27
1 files changed, 0 insertions, 27 deletions
diff --git a/src/client/Utils/Maybe.elm b/src/client/Utils/Maybe.elm
deleted file mode 100644
index d954ae0..0000000
--- a/src/client/Utils/Maybe.elm
+++ /dev/null
@@ -1,27 +0,0 @@
-module Utils.Maybe
- ( isJust
- , catMaybes
- , maybeToList
- ) where
-
-isJust : Maybe a -> Bool
-isJust maybe =
- case maybe of
- Just _ -> True
- Nothing -> False
-
-catMaybes : List (Maybe a) -> List a
-catMaybes =
- List.foldr
- (\mb xs ->
- case mb of
- Just x -> x :: xs
- Nothing -> xs
- )
- []
-
-maybeToList : Maybe a -> List a
-maybeToList mb =
- case mb of
- Just a -> [a]
- Nothing -> []