aboutsummaryrefslogtreecommitdiff
path: root/src/client/Utils
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/Utils')
-rw-r--r--src/client/Utils/Dict.elm11
-rw-r--r--src/client/Utils/Either.elm9
-rw-r--r--src/client/Utils/Maybe.elm27
-rw-r--r--src/client/Utils/Validation.elm23
4 files changed, 0 insertions, 70 deletions
diff --git a/src/client/Utils/Dict.elm b/src/client/Utils/Dict.elm
deleted file mode 100644
index dc01b17..0000000
--- a/src/client/Utils/Dict.elm
+++ /dev/null
@@ -1,11 +0,0 @@
-module Utils.Dict
- ( mapValues
- ) where
-
-import Dict as Dict exposing (..)
-
-mapValues : (a -> b) -> Dict comparable a -> Dict comparable b
-mapValues f = Dict.fromList << List.map (onSecond f) << Dict.toList
-
-onSecond : (a -> b) -> (comparable, a) -> (comparable, b)
-onSecond f tuple = case tuple of (x, y) -> (x, f y)
diff --git a/src/client/Utils/Either.elm b/src/client/Utils/Either.elm
deleted file mode 100644
index 10c40e3..0000000
--- a/src/client/Utils/Either.elm
+++ /dev/null
@@ -1,9 +0,0 @@
-module Utils.Either
- ( toMaybeError
- ) where
-
-toMaybeError : Result a b -> Maybe a
-toMaybeError result =
- case result of
- Ok _ -> Nothing
- Err x -> Just x
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 -> []
diff --git a/src/client/Utils/Validation.elm b/src/client/Utils/Validation.elm
deleted file mode 100644
index b9bccb3..0000000
--- a/src/client/Utils/Validation.elm
+++ /dev/null
@@ -1,23 +0,0 @@
-module Utils.Validation
- ( validateNonEmpty
- , validateNumber
- ) where
-
-import String
-import Reads exposing (readInt)
-
-validateNonEmpty : String -> String -> Result String String
-validateNonEmpty message str =
- if String.isEmpty str
- then Err message
- else Ok str
-
-validateNumber : String -> (Int -> Bool) -> String -> Result String Int
-validateNumber message numberForm str =
- case readInt str of
- Just number ->
- if numberForm number
- then Ok number
- else Err message
- Nothing ->
- Err message