From fc8be14dd0089eb12b78af7aaaecd8ed57896677 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 7 Aug 2019 21:27:59 +0200
Subject: Update category according to payment in add overlay

---
 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 e2a3dcb..fc13f36 100644
--- a/client/src/Util/Validation.hs
+++ b/client/src/Util/Validation.hs
@@ -1,7 +1,8 @@
 module Util.Validation
-  ( fireValidation
+  ( nelError
+  , toMaybe
+  , fireValidation
   , fireMaybe
-  , nelError
   ) where
 
 import           Control.Monad      (join)
@@ -16,6 +17,10 @@ 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
+
 fireValidation
   :: forall t a b c. Reflex t
   => Dynamic t (Maybe (Validation a b))
-- 
cgit v1.2.3