From 11052951b74b9ad4b6a9412ae490086235f9154b Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 3 Jan 2021 13:40:40 +0100
Subject: Rewrite in Rust

---
 common/src/Common/Model/Payment.hs | 33 ---------------------------------
 1 file changed, 33 deletions(-)
 delete mode 100644 common/src/Common/Model/Payment.hs

(limited to 'common/src/Common/Model/Payment.hs')

diff --git a/common/src/Common/Model/Payment.hs b/common/src/Common/Model/Payment.hs
deleted file mode 100644
index 733a145..0000000
--- a/common/src/Common/Model/Payment.hs
+++ /dev/null
@@ -1,33 +0,0 @@
-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
-- 
cgit v1.2.3