mateamt/src/Types/Amount.hs
2019-12-15 00:03:49 +01:00

31 lines
639 B
Haskell

{-# LANGUAGE DeriveGeneric #-}
module Types.Amount where
import GHC.Generics
import Data.Aeson
data AmountUpdate = AmountUpdate
{ amountUpdateProductId :: Int
, amountUpdateRealAmount :: Int
}
deriving (Show, Generic)
instance ToJSON AmountUpdate where
toEncoding = genericToEncoding defaultOptions
instance FromJSON AmountUpdate
data AmountRefill = AmountRefill
{ amountRefillProductId :: Int
, amountRefillAmountSingles :: Int
, amountRefillAmountCrates :: Int
}
deriving (Show, Generic)
instance ToJSON AmountRefill where
toEncoding = genericToEncoding defaultOptions
instance FromJSON AmountRefill