mateamt/src/Types/Amount.hs

18 lines
346 B
Haskell
Raw Normal View History

2019-07-27 14:34:28 +00:00
{-# 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