From af8353c6164aaaaa836bfed181f883ac86bb76a5 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 19 Jan 2020 14:03:31 +0100
Subject: Sign in with email and password

---
 client/src/Util/Validation.hs | 11 -----------
 1 file changed, 11 deletions(-)

(limited to 'client/src/Util')

diff --git a/client/src/Util/Validation.hs b/client/src/Util/Validation.hs
index f9545a4..50f2468 100644
--- a/client/src/Util/Validation.hs
+++ b/client/src/Util/Validation.hs
@@ -3,7 +3,6 @@ module Util.Validation
   , toMaybe
   , maybeError
   , fireValidation
-  , fireMaybe
   ) where
 
 import           Control.Monad      (join)
@@ -35,13 +34,3 @@ fireValidation value validate =
   R.fmapMaybe
     (Validation.validation (const Nothing) Just)
     (R.tag (R.current value) validate)
-
-fireMaybe
-  :: forall t a b. Reflex t
-  => Dynamic t (Maybe a)
-  -> Event t b
-  -> Event t a
-fireMaybe value validate =
-  R.fmapMaybe
-    id
-    (R.tag (R.current value) validate)
-- 
cgit v1.2.3