small aesthetic fixes

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

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)