From a7db22556b91bc7c499e010b4c051f4442ad8ce2 Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 29 Dec 2015 22:38:42 +0100
Subject: Using persona to validate emails

---
 src/client/Utils/Dict.elm       | 11 -----------
 src/client/Utils/Either.elm     |  9 ---------
 src/client/Utils/Maybe.elm      | 27 ---------------------------
 src/client/Utils/Validation.elm | 23 -----------------------
 4 files changed, 70 deletions(-)
 delete mode 100644 src/client/Utils/Dict.elm
 delete mode 100644 src/client/Utils/Either.elm
 delete mode 100644 src/client/Utils/Maybe.elm
 delete mode 100644 src/client/Utils/Validation.elm

(limited to 'src/client/Utils')

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
-- 
cgit v1.2.3