fix documentatioin generation

This commit is contained in:
nek0 2019-11-15 19:12:49 +01:00
parent 28b691bbd0
commit df44b3fc7f

View file

@ -55,8 +55,8 @@ amountTable = table "amount" (
) )
insertNewEmptyAmount insertNewEmptyAmount
:: Int -- | the associated product id :: Int -- ^ the associated product id
-> ProductSubmit -- | submitted product data -> ProductSubmit -- ^ submitted product data
-> PGS.Connection -> PGS.Connection
-> MateHandler Int -> MateHandler Int
insertNewEmptyAmount bevid (ProductSubmit _ price _ _ _ _ _ _ _) conn = insertNewEmptyAmount bevid (ProductSubmit _ price _ _ _ _ _ _ _) conn =
@ -143,7 +143,7 @@ getLatestTotalPrice (PurchaseDetail pid amount) conn = do
checkProductAvailability checkProductAvailability
:: PurchaseDetail :: PurchaseDetail
-> PGS.Connection -> PGS.Connection
-> MateHandler (Maybe Int) -- | Returns maybe missing amount -> MateHandler (Maybe Int) -- ^ Returns maybe missing amount
checkProductAvailability (PurchaseDetail pid amount) conn = do checkProductAvailability (PurchaseDetail pid amount) conn = do
realamount <- (\(_, _, ramount, _, _) -> ramount) . head <$> realamount <- (\(_, _, ramount, _, _) -> ramount) . head <$>
(liftIO $ runSelect conn $ limit 1 $ (liftIO $ runSelect conn $ limit 1 $