From 11052951b74b9ad4b6a9412ae490086235f9154b Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 3 Jan 2021 13:40:40 +0100
Subject: Rewrite in Rust

---
 client/src/Util/Validation.hs | 36 ------------------------------------
 1 file changed, 36 deletions(-)
 delete mode 100644 client/src/Util/Validation.hs

(limited to 'client/src/Util/Validation.hs')

diff --git a/client/src/Util/Validation.hs b/client/src/Util/Validation.hs
deleted file mode 100644
index 50f2468..0000000
--- a/client/src/Util/Validation.hs
+++ /dev/null
@@ -1,36 +0,0 @@
-module Util.Validation
-  ( nelError
-  , toMaybe
-  , maybeError
-  , fireValidation
-  ) where
-
-import           Control.Monad      (join)
-import           Data.List.NonEmpty (NonEmpty)
-import qualified Data.List.NonEmpty as NEL
-import           Data.Text          (Text)
-import           Data.Validation    (Validation (Failure, Success))
-import qualified Data.Validation    as Validation
-import           Reflex.Dom         (Dynamic, Event, Reflex)
-import qualified Reflex.Dom         as R
-
-nelError :: Validation a b -> Validation (NonEmpty a) b
-nelError = Validation.validation (Failure . NEL.fromList . (:[])) Success
-
-toMaybe :: Validation a b -> Maybe b
-toMaybe (Success s) = Just s
-toMaybe (Failure _) = Nothing
-
-maybeError :: Validation a b -> Maybe a
-maybeError (Success _) = Nothing
-maybeError (Failure e) = Just e
-
-fireValidation
-  :: forall t a b c. Reflex t
-  => Dynamic t (Validation a b)
-  -> Event t c
-  -> Event t b
-fireValidation value validate =
-  R.fmapMaybe
-    (Validation.validation (const Nothing) Just)
-    (R.tag (R.current value) validate)
-- 
cgit v1.2.3