From 27e11b20b06f2f2dbfb56c0998a63169b4b8abc4 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 8 Nov 2017 23:47:26 +0100
Subject: Use a better project structure

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

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

diff --git a/src/common/Model/Payment.hs b/src/common/Model/Payment.hs
deleted file mode 100644
index 804b501..0000000
--- a/src/common/Model/Payment.hs
+++ /dev/null
@@ -1,33 +0,0 @@
-{-# LANGUAGE DeriveGeneric #-}
-
-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.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_frequency :: Frequency
-  , _payment_createdAt :: UTCTime
-  , _payment_editedAt :: Maybe UTCTime
-  , _payment_deletedAt :: Maybe UTCTime
-  } deriving (Show, Generic)
-
-instance FromJSON Payment
-instance ToJSON Payment
-- 
cgit v1.2.3