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