18 lines
346 B
Haskell
18 lines
346 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
|