Remove Loadable2

7 files changed, 7 insertions, 7 deletions

diff --git a/common/src/Common/Model/ExceedingPayer.hs b/common/src/Common/Model/ExceedingPayer.hs
index 171b6ff..b7d3efb 100644
--- a/common/src/Common/Model/ExceedingPayer.hs
+++ b/common/src/Common/Model/ExceedingPayer.hs
@@ -10,7 +10,7 @@ import           Common.Model.User (UserId)
 data ExceedingPayer = ExceedingPayer
   { _exceedingPayer_userId :: UserId
   , _exceedingPayer_amount :: Int
-  } deriving (Show, Generic)
+  } deriving (Eq, Show, Generic)
 
 instance FromJSON ExceedingPayer
 instance ToJSON ExceedingPayer
diff --git a/common/src/Common/Model/Income.hs b/common/src/Common/Model/Income.hs
index 0423704..57d07f1 100644
--- a/common/src/Common/Model/Income.hs
+++ b/common/src/Common/Model/Income.hs
@@ -21,7 +21,7 @@ data Income = Income
   , _income_createdAt :: UTCTime
   , _income_editedAt  :: Maybe UTCTime
   , _income_deletedAt :: Maybe UTCTime
-  } deriving (Show, Generic)
+  } deriving (Eq, Show, Generic)
 
 instance FromJSON Income
 instance ToJSON Income
diff --git a/common/src/Common/Model/IncomeHeader.hs b/common/src/Common/Model/IncomeHeader.hs
index 87c7aae..7e712e8 100644
--- a/common/src/Common/Model/IncomeHeader.hs
+++ b/common/src/Common/Model/IncomeHeader.hs
@@ -12,7 +12,7 @@ import           Common.Model.User  (UserId)
 data IncomeHeader = IncomeHeader
   { _incomeHeader_since  :: Maybe Day
   , _incomeHeader_byUser :: Map UserId Int
-  } deriving (Show, Generic)
+  } deriving (Eq, Show, Generic)
 
 instance FromJSON IncomeHeader
 instance ToJSON IncomeHeader
diff --git a/common/src/Common/Model/IncomePage.hs b/common/src/Common/Model/IncomePage.hs
index 0572141..977b0ea 100644
--- a/common/src/Common/Model/IncomePage.hs
+++ b/common/src/Common/Model/IncomePage.hs
@@ -13,7 +13,7 @@ data IncomePage = IncomePage
   , _incomePage_header     :: IncomeHeader
   , _incomePage_incomes    :: [Income]
   , _incomePage_totalCount :: Int
-  } deriving (Show, Generic)
+  } deriving (Eq, Show, Generic)
 
 instance FromJSON IncomePage
 instance ToJSON IncomePage
diff --git a/common/src/Common/Model/Payment.hs b/common/src/Common/Model/Payment.hs
index c232fc7..733a145 100644
--- a/common/src/Common/Model/Payment.hs
+++ b/common/src/Common/Model/Payment.hs
@@ -27,7 +27,7 @@ data Payment = Payment
   , _payment_createdAt :: UTCTime
   , _payment_editedAt  :: Maybe UTCTime
   , _payment_deletedAt :: Maybe UTCTime
-  } deriving (Show, Generic)
+  } deriving (Eq, Show, Generic)
 
 instance FromJSON Payment
 instance ToJSON Payment
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
diff --git a/common/src/Common/Model/PaymentPage.hs b/common/src/Common/Model/PaymentPage.hs
index 94203a2..88d9715 100644
--- a/common/src/Common/Model/PaymentPage.hs
+++ b/common/src/Common/Model/PaymentPage.hs
@@ -15,7 +15,7 @@ data PaymentPage = PaymentPage
   , _paymentPage_header     :: PaymentHeader
   , _paymentPage_payments   :: [Payment]
   , _paymentPage_totalCount :: Int
-  } deriving (Show, Generic)
+  } deriving (Eq, Show, Generic)
 
 instance FromJSON PaymentPage
 instance ToJSON PaymentPage