Correction : Calc.Balance : utilise Typeable1 pour supporter GHC-7.6.

diff --git a/lib/Hcompta/Calc/Balance.hs b/lib/Hcompta/Calc/Balance.hs
index 269ffb96d85b69dfe805658ecb24b0d155aaee7e..5499e58c3a65aabca3e3c59fe774c92b38a90bd4 100644 (file)
--- a/lib/Hcompta/Calc/Balance.hs
+++ b/lib/Hcompta/Calc/Balance.hs
@@ -4,6 +4,7 @@
 {-# LANGUAGE NamedFieldPuns #-}
 {-# LANGUAGE StandaloneDeriving #-}
 {-# LANGUAGE TypeFamilies #-}
+{-# OPTIONS_GHC -fno-warn-deprecations #-} -- FIXME: to be removed when dropping GHC-7.6 support
 module Hcompta.Calc.Balance where
 
 import           Control.Exception (assert)
@@ -84,10 +85,10 @@ data Amount amount => Balance amount
  { balance_by_account :: Balance_by_Account amount (Amount_Unit amount)
  , balance_by_unit    :: Balance_by_Unit    amount (Amount_Unit amount)
  }
-deriving instance Amount amount => Data    (Balance amount)
-deriving instance Amount amount => Eq      (Balance amount)
-deriving instance Amount amount => Show    (Balance amount)
-deriving instance                  Typeable Balance
+deriving instance Amount amount => Data     (Balance amount)
+deriving instance Amount amount => Eq       (Balance amount)
+deriving instance Amount amount => Show     (Balance amount)
+deriving instance                  Typeable1 Balance -- FIXME: use 'Typeable' when dropping GHC-7.6 support
 
 type Balance_by_Account amount unit
  = TreeMap Account.Name
@@ -229,10 +230,10 @@ union b0 b1 =
 newtype Amount amount
  => Deviation amount
  =  Deviation (Balance_by_Unit amount (Amount_Unit amount))
-deriving instance Amount amount => Data    (Deviation amount)
-deriving instance Amount amount => Eq      (Deviation amount)
-deriving instance Amount amount => Show    (Deviation amount)
-deriving instance                  Typeable Deviation
+deriving instance Amount amount => Data     (Deviation amount)
+deriving instance Amount amount => Eq       (Deviation amount)
+deriving instance Amount amount => Show     (Deviation amount)
+deriving instance                  Typeable1 Deviation -- FIXME: use 'Typeable' when dropping GHC-7.6 support
 
 -- | Return the 'balance_by_unit' of the given 'Balance' with:
 --
@@ -359,10 +360,10 @@ data Amount amount => Account_Sum_Expanded amount
  { exclusive :: Map (Amount_Unit amount) amount
  , inclusive :: Map (Amount_Unit amount) amount -- ^ 'amount_add' folded over 'exclusive' and 'inclusive' of 'Lib.TreeMap.node_descendants'
  }
-deriving instance Amount amount => Data    (Account_Sum_Expanded amount)
-deriving instance Amount amount => Eq      (Account_Sum_Expanded amount)
-deriving instance Amount amount => Show    (Account_Sum_Expanded amount)
-deriving instance                  Typeable Account_Sum_Expanded
+deriving instance Amount amount => Data     (Account_Sum_Expanded amount)
+deriving instance Amount amount => Eq       (Account_Sum_Expanded amount)
+deriving instance Amount amount => Show     (Account_Sum_Expanded amount)
+deriving instance                  Typeable1 Account_Sum_Expanded -- FIXME: use 'Typeable' when dropping GHC-7.6 support
 
 -- | Return the given 'Balance_by_Account' with:
 --