From 5ba6215c477f826ec2f8210e41c13ceb135393ae Mon Sep 17 00:00:00 2001 From: Stephen Morgan Date: Fri, 1 Jan 2021 12:36:26 +1100 Subject: [PATCH] cli: Remove redundant import, add some CPP. --- hledger/Hledger/Cli/Commands/Check/Ordereddates.hs | 5 +++++ hledger/Hledger/Cli/Commands/Check/Uniqueleafnames.hs | 1 - 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/hledger/Hledger/Cli/Commands/Check/Ordereddates.hs b/hledger/Hledger/Cli/Commands/Check/Ordereddates.hs index d867649c4..14fb2df6b 100755 --- a/hledger/Hledger/Cli/Commands/Check/Ordereddates.hs +++ b/hledger/Hledger/Cli/Commands/Check/Ordereddates.hs @@ -1,8 +1,13 @@ +{-# LANGUAGE CPP #-} + module Hledger.Cli.Commands.Check.Ordereddates ( journalCheckOrdereddates ) where +#if !(MIN_VERSION_base(4,11,0)) +import Data.Semigroup ((<>)) +#endif import qualified Data.Text as T import Hledger import Hledger.Cli.CliOptions diff --git a/hledger/Hledger/Cli/Commands/Check/Uniqueleafnames.hs b/hledger/Hledger/Cli/Commands/Check/Uniqueleafnames.hs index 1fd112a06..07309df37 100755 --- a/hledger/Hledger/Cli/Commands/Check/Uniqueleafnames.hs +++ b/hledger/Hledger/Cli/Commands/Check/Uniqueleafnames.hs @@ -14,7 +14,6 @@ import Data.Text (Text) import Data.Semigroup ((<>)) #endif import qualified Data.Text as T -import qualified Data.Text.IO as T import Hledger journalCheckUniqueleafnames :: Journal -> Either String ()