nek0/mateamt
1
0
Fork 0
Code Issues Pull requests Releases Activity

fix documentatioin generation

Browse source
This commit is contained in:
nek0 2019-11-15 19:12:49 +01:00
parent 28b691bbd0
commit df44b3fc7f
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Model/Amount.hs
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 $