nek0/mateamt
1
0
Fork 0
Code Issues Pull requests Releases Activity

small aesthetic fixes

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Model/Product.hs
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

2
src/Types/Purchase.hs
View file

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