From 7c77e52faa71e43324087903c905f9d493b1dfb7 Mon Sep 17 00:00:00 2001
From: Joris
Date: Thu, 8 Aug 2019 21:28:22 +0200
Subject: Finish payment add modal

---
 client/src/Util/Validation.hs | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

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

diff --git a/client/src/Util/Validation.hs b/client/src/Util/Validation.hs
index fc13f36..f9545a4 100644
--- a/client/src/Util/Validation.hs
+++ b/client/src/Util/Validation.hs
@@ -1,6 +1,7 @@
 module Util.Validation
   ( nelError
   , toMaybe
+  , maybeError
   , fireValidation
   , fireMaybe
   ) where
@@ -21,14 +22,18 @@ 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 (Maybe (Validation a b))
+  => Dynamic t (Validation a b)
   -> Event t c
   -> Event t b
 fireValidation value validate =
   R.fmapMaybe
-    (join . fmap (Validation.validation (const Nothing) Just))
+    (Validation.validation (const Nothing) Just)
     (R.tag (R.current value) validate)
 
 fireMaybe
-- 
cgit v1.2.3