From 0630b5961e7e693364b83af67c54e1c9a492b194 Mon Sep 17 00:00:00 2001 From: nek0 Date: Sun, 27 Oct 2019 22:46:07 +0100 Subject: [PATCH] small aesthetic fixes --- src/Model/Product.hs | 4 ++-- src/Types/Purchase.hs | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) 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)