aboutsummaryrefslogtreecommitdiff
path: root/client/src/Util
diff options
context:
space:
mode:
authorJoris2020-01-19 14:03:31 +0100
committerJoris2020-01-19 14:10:51 +0100
commitaf8353c6164aaaaa836bfed181f883ac86bb76a5 (patch)
treeb23c3f87a82f0e3c2e5ed46b932c3495616cfbae /client/src/Util
parentbc48d7428607c84003658d5b88d41cf923d010fd (diff)
downloadbudget-af8353c6164aaaaa836bfed181f883ac86bb76a5.tar.gz
budget-af8353c6164aaaaa836bfed181f883ac86bb76a5.tar.bz2
budget-af8353c6164aaaaa836bfed181f883ac86bb76a5.zip
Sign in with email and password
Diffstat (limited to 'client/src/Util')
-rw-r--r--client/src/Util/Validation.hs11
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)