diff --git a/src/Model/Product.hs b/src/Model/Product.hs index d879c03..9f1f273 100644 --- a/src/Model/Product.hs +++ b/src/Model/Product.hs @@ -238,8 +238,8 @@ productShortOverviewSelect -> MateHandler [ProductShortOverview] productShortOverviewSelect refine conn = do prods <- liftIO $ runSelect conn (produceProductOverviews refine) - :: MateHandler [ - ( Int + :: MateHandler + [( Int , Text , Int , Maybe Int diff --git a/src/Types/Purchase.hs b/src/Types/Purchase.hs index 2917a41..f4d03de 100644 --- a/src/Types/Purchase.hs +++ b/src/Types/Purchase.hs @@ -8,8 +8,8 @@ import GHC.Generics data PurchaseDetail = PurchaseDetail - { purchaseDetailBeverage :: Int - , purchaseDetailAmount :: Int + { purchaseDetailProduct :: Int + , purchaseDetailAmount :: Int } deriving (Generic, Show)