From ac5652b7ccca70a317aa75194408c469c05fc02f Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 29 Nov 2019 07:02:52 -0800
Subject: [PATCH] ;web: fix redundant import warnings with ghc 8.8

---
 hledger-web/Hledger/Web/Foundation.hs     | 2 ++
 hledger-web/Hledger/Web/Settings.hs       | 2 ++
 hledger-web/Hledger/Web/Widget/AddForm.hs | 2 ++
 hledger-web/Hledger/Web/Widget/Common.hs  | 2 ++
 4 files changed, 8 insertions(+)

diff --git a/hledger-web/Hledger/Web/Foundation.hs b/hledger-web/Hledger/Web/Foundation.hs
index 82a0be9ec..c4e5cb4fc 100644
--- a/hledger-web/Hledger/Web/Foundation.hs
+++ b/hledger-web/Hledger/Web/Foundation.hs
@@ -21,7 +21,9 @@ import qualified Data.ByteString.Char8 as BC
 import Data.Traversable (for)
 import Data.IORef (IORef, readIORef, writeIORef)
 import Data.Maybe (fromMaybe)
+#if !(MIN_VERSION_base(4,13,0))
 import Data.Monoid ((<>))
+#endif
 import Data.Text (Text)
 import qualified Data.Text as T
 import Data.Time.Calendar (Day)
diff --git a/hledger-web/Hledger/Web/Settings.hs b/hledger-web/Hledger/Web/Settings.hs
index 56f37953b..ea1268192 100644
--- a/hledger-web/Hledger/Web/Settings.hs
+++ b/hledger-web/Hledger/Web/Settings.hs
@@ -7,7 +7,9 @@
 module Hledger.Web.Settings where
 
 import Data.Default (def)
+#if !(MIN_VERSION_base(4,13,0))
 import Data.Semigroup ((<>))
+#endif
 import Data.Text (Text)
 import Data.Yaml
 import Language.Haskell.TH.Syntax (Q, Exp)
diff --git a/hledger-web/Hledger/Web/Widget/AddForm.hs b/hledger-web/Hledger/Web/Widget/AddForm.hs
index 893da53e6..bc9067ab2 100644
--- a/hledger-web/Hledger/Web/Widget/AddForm.hs
+++ b/hledger-web/Hledger/Web/Widget/AddForm.hs
@@ -15,7 +15,9 @@ import Control.Monad.State.Strict (evalStateT)
 import Data.Bifunctor (first)
 import Data.List (dropWhileEnd, nub, sort, unfoldr)
 import Data.Maybe (isJust)
+#if !(MIN_VERSION_base(4,13,0))
 import Data.Semigroup ((<>))
+#endif
 import Data.Text (Text)
 import qualified Data.Text as T
 import Data.Time (Day)
diff --git a/hledger-web/Hledger/Web/Widget/Common.hs b/hledger-web/Hledger/Web/Widget/Common.hs
index 6646c7241..51c9b2988 100644
--- a/hledger-web/Hledger/Web/Widget/Common.hs
+++ b/hledger-web/Hledger/Web/Widget/Common.hs
@@ -18,7 +18,9 @@ module Hledger.Web.Widget.Common
 
 import Data.Default (def)
 import Data.Foldable (find, for_)
+#if !(MIN_VERSION_base(4,13,0))
 import Data.Semigroup ((<>))
+#endif
 import Data.Text (Text)
 import qualified Data.Text as T
 import System.FilePath (takeFileName)