Merge branch 'with-ghcjs' into 'master'

Use Haskell on the frontend

See merge request guyonvarch/shared-cost!2

1 files changed, 33 insertions, 0 deletions

diff --git a/common/src/Common/Model/Payment.hs b/common/src/Common/Model/Payment.hs
new file mode 100644
index 0000000..733a145
--- /dev/null
+++ b/common/src/Common/Model/Payment.hs
@@ -0,0 +1,33 @@
+module Common.Model.Payment
+  ( PaymentId
+  , Payment(..)
+  ) where
+
+import           Data.Aeson             (FromJSON, ToJSON)
+import           Data.Int               (Int64)
+import           Data.Text              (Text)
+import           Data.Time              (UTCTime)
+import           Data.Time.Calendar     (Day)
+import           GHC.Generics           (Generic)
+
+import           Common.Model.Category  (CategoryId)
+import           Common.Model.Frequency
+import           Common.Model.User      (UserId)
+
+type PaymentId = Int64
+
+data Payment = Payment
+  { _payment_id        :: PaymentId
+  , _payment_user      :: UserId
+  , _payment_name      :: Text
+  , _payment_cost      :: Int
+  , _payment_date      :: Day
+  , _payment_category  :: CategoryId
+  , _payment_frequency :: Frequency
+  , _payment_createdAt :: UTCTime
+  , _payment_editedAt  :: Maybe UTCTime
+  , _payment_deletedAt :: Maybe UTCTime
+  } deriving (Eq, Show, Generic)
+
+instance FromJSON Payment
+instance ToJSON Payment