From df44b3fc7ff97bce3237126f6994f95e5ded7910 Mon Sep 17 00:00:00 2001 From: nek0 Date: Fri, 15 Nov 2019 19:12:49 +0100 Subject: [PATCH] fix documentatioin generation --- src/Model/Amount.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Model/Amount.hs b/src/Model/Amount.hs index 0e00f8b..086ab01 100644 --- a/src/Model/Amount.hs +++ b/src/Model/Amount.hs @@ -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 $