diff options
| author | Joris | 2018-11-01 13:14:25 +0100 |
|---|---|---|
| committer | Joris | 2019-08-04 21:14:32 +0200 |
| commit | 2741f47ef7b87255203bc2f7f7b2b9140c70b8f0 (patch) | |
| tree | ea5f685cdf8f3de2efa1113325d45faaa90c977e /common/src/Common/Model/Email.hs | |
| parent | 86957359ecf54c205aee1c09e151172c327e987a (diff) | |
| download | budget-2741f47ef7b87255203bc2f7f7b2b9140c70b8f0.tar.gz budget-2741f47ef7b87255203bc2f7f7b2b9140c70b8f0.tar.bz2 budget-2741f47ef7b87255203bc2f7f7b2b9140c70b8f0.zip | |
Implementing client side validation
Diffstat (limited to 'common/src/Common/Model/Email.hs')
| -rw-r--r-- | common/src/Common/Model/Email.hs | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/common/src/Common/Model/Email.hs b/common/src/Common/Model/Email.hs new file mode 100644 index 0000000..e938f83 --- /dev/null +++ b/common/src/Common/Model/Email.hs @@ -0,0 +1,12 @@ +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 |