commence prouct pages

src/Control/Product.hs

@@ -55,7 +55,9 @@ productStockUpdate
   :: Maybe (Int, AuthMethod)
   -> [AmountUpdate]
   -> MateHandler ()
-productStockUpdate (Just _) amoups =
+productStockUpdate (Just (_, method)) amoups =
+  if method `elem` [PrimaryPass, ChallengeResponse]
+  then
     if all ((>= 0) . amountUpdateRealAmount) amoups
     then do
       conn <- asks rsConnection
@@ -64,6 +66,10 @@ productStockUpdate (Just _) amoups =
       throwError $ err400
         { errBody = "Amounts less than 0 are not acceptable."
         }
+  else
+    throwError $ err401
+      { errBody = "Wrong Authentication present."
+      }
 productStockUpdate Nothing _ =
   throwError $ err401
     { errBody = "No Authentication present."