module Common.Model.Currency ( Currency(..) ) where import Data.Aeson (FromJSON, ToJSON) import Data.Text (Text) import GHC.Generics (Generic) newtype Currency = Currency Text deriving (Show, Generic) instance FromJSON Currency instance ToJSON Currency