From 4dc84dbda7ba3ea60d13e6f81eeec556974b7c72 Mon Sep 17 00:00:00 2001
From: Joris
Date: Thu, 7 Nov 2019 07:59:41 +0100
Subject: Show payment header infos

---
 common/src/Common/Model/PaymentHeader.hs | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 common/src/Common/Model/PaymentHeader.hs

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

diff --git a/common/src/Common/Model/PaymentHeader.hs b/common/src/Common/Model/PaymentHeader.hs
new file mode 100644
index 0000000..a522cd8
--- /dev/null
+++ b/common/src/Common/Model/PaymentHeader.hs
@@ -0,0 +1,18 @@
+module Common.Model.PaymentHeader
+  ( PaymentHeader(..)
+  ) where
+
+import           Data.Aeson                  (FromJSON, ToJSON)
+import           Data.Map                    (Map)
+import           GHC.Generics                (Generic)
+
+import           Common.Model.ExceedingPayer (ExceedingPayer)
+import           Common.Model.User           (UserId)
+
+data PaymentHeader = PaymentHeader
+  { _paymentHeader_exceedingPayers :: [ExceedingPayer]
+  , _paymentHeader_repartition     :: Map UserId Int
+  } deriving (Show, Generic)
+
+instance FromJSON PaymentHeader
+instance ToJSON PaymentHeader
-- 
cgit v1.2.3


From e622e8fdd2e40b4306b5cc724d8dfb76bf976242 Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 25 Nov 2019 08:17:59 +0100
Subject: Remove Loadable2

---
 common/src/Common/Model/PaymentHeader.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/common/src/Common/Model/PaymentHeader.hs b/common/src/Common/Model/PaymentHeader.hs
index a522cd8..35f5e1a 100644
--- a/common/src/Common/Model/PaymentHeader.hs
+++ b/common/src/Common/Model/PaymentHeader.hs
@@ -12,7 +12,7 @@ import           Common.Model.User           (UserId)
 data PaymentHeader = PaymentHeader
   { _paymentHeader_exceedingPayers :: [ExceedingPayer]
   , _paymentHeader_repartition     :: Map UserId Int
-  } deriving (Show, Generic)
+  } deriving (Eq, Show, Generic)
 
 instance FromJSON PaymentHeader
 instance ToJSON PaymentHeader
-- 
cgit v1.2.3