This commit is contained in:
nek0 2020-05-10 10:06:10 +02:00
parent e8bb9c83c4
commit 7ac3d8c87f
1 changed files with 6 additions and 6 deletions

View File

@ -84,7 +84,7 @@ userRecharge
-> UserRecharge -> UserRecharge
-> MateHandler () -> MateHandler ()
userRecharge (Just (auid, _)) (UserRecharge amount) = do userRecharge (Just (auid, _)) (UserRecharge amount) = do
when (amount < 0) $ do when (amount < 0) $
throwError $ err400 throwError $ err400
{ errBody = "Amounts less or equal zero are not acceptable." { errBody = "Amounts less or equal zero are not acceptable."
} }
@ -108,26 +108,26 @@ userTransfer
-> UserTransfer -> UserTransfer
-> MateHandler () -> MateHandler ()
userTransfer (Just (auid, method)) (UserTransfer target amount) = do userTransfer (Just (auid, method)) (UserTransfer target amount) = do
when (amount < 0) $ do when (amount < 0) $
throwError $ err400 throwError $ err400
{ errBody = "Amounts less or equal zero are not acceptable." { errBody = "Amounts less or equal zero are not acceptable."
} }
when (auid == target) $ do when (auid == target) $
throwError $ err400 throwError $ err400
{ errBody = "You can not transfer yourself money." { errBody = "You can not transfer yourself money."
} }
when (method `notElem` [PrimaryPass, ChallengeResponse]) $ do when (method `notElem` [PrimaryPass, ChallengeResponse]) $
throwError $ err401 throwError $ err401
{ errBody = "No Authentication present." { errBody = "No Authentication present."
} }
conn <- asks rsConnection conn <- asks rsConnection
user <- userDetailsSelect auid conn user <- userDetailsSelect auid conn
when (amount > userDetailsBalance user) $ do when (amount > userDetailsBalance user) $
throwError $ err400 throwError $ err400
{ errBody = "Not enough credit balance." { errBody = "Not enough credit balance."
} }
mtarget <- filter (\u -> userSummaryId u == target) <$> userSelect AllUsers conn mtarget <- filter (\u -> userSummaryId u == target) <$> userSelect AllUsers conn
when (null mtarget) $ do when (null mtarget) $
throwError $ err400 throwError $ err400
{ errBody = "Target user not found." { errBody = "Target user not found."
} }