From cd1e457bfb42228636eb450a98fb7cf115a685d9 Mon Sep 17 00:00:00 2001 From: nek0 Date: Mon, 9 Sep 2019 13:17:43 +0200 Subject: [PATCH] foo --- src/Control/Product.hs | 4 +++- src/Control/User.hs | 2 +- src/Model/Product.hs | 3 ++- 3 files changed, 6 insertions(+), 3 deletions(-) diff --git a/src/Control/Product.hs b/src/Control/Product.hs index cb718dc..f3806d8 100644 --- a/src/Control/Product.hs +++ b/src/Control/Product.hs @@ -7,6 +7,8 @@ import Control.Monad (void) import Control.Monad.Reader (ask) +import Data.Maybe (fromMaybe) + -- internal imports import Types @@ -56,7 +58,7 @@ productStockUpdate Nothing _ = { errBody = "No Authentication present." } -productList :: Maybe ProductRefine :> MateHandler [ProductOverview] +productList :: Maybe ProductRefine -> MateHandler [ProductOverview] productList mrefine = do conn <- rsConnection <$> ask productOverviewSelect (fromMaybe AvailableProducts mrefine) conn diff --git a/src/Control/User.hs b/src/Control/User.hs index d4133b4..76adc56 100644 --- a/src/Control/User.hs +++ b/src/Control/User.hs @@ -96,7 +96,7 @@ userTransfer (Just auid) (UserTransfer target amount) = user <- userDetailsSelect auid conn if amount < userDetailsBalance user then do - mtarget <- filter (\u -> userSummaryId u == target) <$> userSelect (Just All) conn + mtarget <- filter (\u -> userSummaryId u == target) <$> userSelect (Just AllUsers) conn if not (null mtarget) then do void $ addToUserBalance auid (-amount) conn diff --git a/src/Model/Product.hs b/src/Model/Product.hs index a724ee6..ceeaa14 100644 --- a/src/Model/Product.hs +++ b/src/Model/Product.hs @@ -98,7 +98,8 @@ productSelect conn = do productOverviewSelect - :: PGS.Connection + :: ProductRefine + -> PGS.Connection -> MateHandler [ProductOverview] productOverviewSelect conn = do prods <- liftIO $ runSelect conn