diff options
| author | Joris | 2020-01-19 14:03:31 +0100 |
|---|---|---|
| committer | Joris | 2020-01-19 14:10:51 +0100 |
| commit | af8353c6164aaaaa836bfed181f883ac86bb76a5 (patch) | |
| tree | b23c3f87a82f0e3c2e5ed46b932c3495616cfbae /client/src/Util | |
| parent | bc48d7428607c84003658d5b88d41cf923d010fd (diff) | |
Sign in with email and password
Diffstat (limited to 'client/src/Util')
| -rw-r--r-- | client/src/Util/Validation.hs | 11 |
1 files changed, 0 insertions, 11 deletions
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) |