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]
productShortOverviewSelect refine conn = do
prods <- liftIO $ runSelect conn (produceProductOverviews refine)
:: MateHandler [
( Int
:: MateHandler
[( Int
, Text
, Int
, Maybe Int

View file

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