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