diff options
| author | Joris | 2019-10-09 23:16:00 +0200 |
|---|---|---|
| committer | Joris | 2019-10-09 23:16:04 +0200 |
| commit | 7529a18ff0ac443e7f9764b5e2d0f57a5d3a850b (patch) | |
| tree | 3d5cfc1f2318c2d4f889ee70764929f1a96e4c41 /common/src/Common/Model/CreatePaymentForm.hs | |
| parent | e5ac82f4808e974dec5f19fc6f059efaa5214022 (diff) | |
| download | budget-7529a18ff0ac443e7f9764b5e2d0f57a5d3a850b.tar.gz budget-7529a18ff0ac443e7f9764b5e2d0f57a5d3a850b.tar.bz2 budget-7529a18ff0ac443e7f9764b5e2d0f57a5d3a850b.zip | |
Use common payment validation in the backend
Remove deprecated backend validation
Diffstat (limited to 'common/src/Common/Model/CreatePaymentForm.hs')
| -rw-r--r-- | common/src/Common/Model/CreatePaymentForm.hs | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/common/src/Common/Model/CreatePaymentForm.hs b/common/src/Common/Model/CreatePaymentForm.hs new file mode 100644 index 0000000..60c5423 --- /dev/null +++ b/common/src/Common/Model/CreatePaymentForm.hs @@ -0,0 +1,21 @@ +module Common.Model.CreatePaymentForm + ( CreatePaymentForm(..) + ) where + +import Data.Aeson (FromJSON, ToJSON) +import Data.Text (Text) +import GHC.Generics (Generic) + +import Common.Model.Category (CategoryId) +import Common.Model.Frequency (Frequency) + +data CreatePaymentForm = CreatePaymentForm + { _createPaymentForm_name :: Text + , _createPaymentForm_cost :: Text + , _createPaymentForm_date :: Text + , _createPaymentForm_category :: CategoryId + , _createPaymentForm_frequency :: Frequency + } deriving (Show, Generic) + +instance FromJSON CreatePaymentForm +instance ToJSON CreatePaymentForm |