From 998474640cf262833f226b9f1760e1fc509277a0 Mon Sep 17 00:00:00 2001 From: nek0 Date: Wed, 16 Sep 2020 17:54:42 +0200 Subject: [PATCH] foo --- src/Control/Product.hs | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/src/Control/Product.hs b/src/Control/Product.hs index b83615b..74b665f 100644 --- a/src/Control/Product.hs +++ b/src/Control/Product.hs @@ -7,9 +7,9 @@ import Control.Monad (void) import Control.Monad.Reader (asks) -import Control.Monad.Extra (anyM) +import Control.Monad.Extra (anyM, allM) -import Data.Maybe (fromMaybe) +import Data.Maybe (fromMaybe, isJust) -- internal imports @@ -56,10 +56,11 @@ productStockRefill (Just (uid, auth)) amorefs = do if auth `elem` [PrimaryPass, ChallengeResponse] && mayRefill then do conn <- asks rsConnection - prods <- mapM - (\refill -> productSelectSingle (amountRefillProductId refill) conn) - amorefs - if not (any null prods) + let prods = map + (\refill -> productSelectSingle (amountRefillProductId refill) conn) + amorefs + allProdsExist <- allM (fmap isJust) prods + if allProdsExist then if all