small aesthetic fixes

This commit is contained in:
nek0 2019-10-27 22:46:07 +01:00
parent 64819144c6
commit 0630b5961e
2 changed files with 4 additions and 4 deletions

View file

@ -238,8 +238,8 @@ productShortOverviewSelect
-> MateHandler [ProductShortOverview] -> MateHandler [ProductShortOverview]
productShortOverviewSelect refine conn = do productShortOverviewSelect refine conn = do
prods <- liftIO $ runSelect conn (produceProductOverviews refine) prods <- liftIO $ runSelect conn (produceProductOverviews refine)
:: MateHandler [ :: MateHandler
( Int [( Int
, Text , Text
, Int , Int
, Maybe Int , Maybe Int

View file

@ -8,8 +8,8 @@ import GHC.Generics
data PurchaseDetail = PurchaseDetail data PurchaseDetail = PurchaseDetail
{ purchaseDetailBeverage :: Int { purchaseDetailProduct :: Int
, purchaseDetailAmount :: Int , purchaseDetailAmount :: Int
} }
deriving (Generic, Show) deriving (Generic, Show)