From 030b633cd6a9b416e283654af108448e52f84762 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Thu, 28 Nov 2019 15:22:12 -0800 Subject: [PATCH] ;fix build issues with old GHC versions --- hledger-lib/Hledger/Read/JournalReader.hs | 3 +++ hledger-lib/Hledger/Utils/Test.hs | 6 +++--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/hledger-lib/Hledger/Read/JournalReader.hs b/hledger-lib/Hledger/Read/JournalReader.hs index 760acd58d..a936e582d 100644 --- a/hledger-lib/Hledger/Read/JournalReader.hs +++ b/hledger-lib/Hledger/Read/JournalReader.hs @@ -73,6 +73,9 @@ import Control.Monad.Except (ExceptT(..), runExceptT) import Control.Monad.State.Strict (get,modify',put) import Control.Monad.Trans.Class (lift) import qualified Data.Map.Strict as M +#if !(MIN_VERSION_base(4,11,0)) +import Data.Monoid ((<>)) +#endif import Data.Text (Text) import Data.String import Data.List diff --git a/hledger-lib/Hledger/Utils/Test.hs b/hledger-lib/Hledger/Utils/Test.hs index 361957fac..b1de72bfe 100644 --- a/hledger-lib/Hledger/Utils/Test.hs +++ b/hledger-lib/Hledger/Utils/Test.hs @@ -25,9 +25,9 @@ where import Control.Monad.Except (ExceptT, runExceptT) import Control.Monad.State.Strict (StateT, evalStateT, execStateT) --- #if !(MIN_VERSION_base(4,11,0)) --- import Data.Monoid ((<>)) --- #endif +#if !(MIN_VERSION_base(4,11,0)) +import Data.Monoid ((<>)) +#endif -- import Data.CallStack import Data.List (isInfixOf) import qualified Data.Text as T