slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

;web: fix redundant import warnings with ghc 8.8

Browse Source
This commit is contained in:
Simon Michael 2019-11-29 07:02:52 -08:00
parent caf8cdf0ca
commit ac5652b7cc
4 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger-web/Hledger/Web/Foundation.hs
View File

@ -21,7 +21,9 @@ import qualified Data.ByteString.Char8 as BC
import Data.Traversable (for) import Data.Traversable (for)
import Data.IORef (IORef, readIORef, writeIORef) import Data.IORef (IORef, readIORef, writeIORef)
import Data.Maybe (fromMaybe) import Data.Maybe (fromMaybe)
#if !(MIN_VERSION_base(4,13,0))
import Data.Monoid ((<>)) import Data.Monoid ((<>))
#endif
import Data.Text (Text) import Data.Text (Text)
import qualified Data.Text as T import qualified Data.Text as T
import Data.Time.Calendar (Day) import Data.Time.Calendar (Day)

2
hledger-web/Hledger/Web/Settings.hs
View File

@ -7,7 +7,9 @@
module Hledger.Web.Settings where module Hledger.Web.Settings where
import Data.Default (def) import Data.Default (def)
#if !(MIN_VERSION_base(4,13,0))
import Data.Semigroup ((<>)) import Data.Semigroup ((<>))
#endif
import Data.Text (Text) import Data.Text (Text)
import Data.Yaml import Data.Yaml
import Language.Haskell.TH.Syntax (Q, Exp) import Language.Haskell.TH.Syntax (Q, Exp)

2
hledger-web/Hledger/Web/Widget/AddForm.hs
View File

@ -15,7 +15,9 @@ import Control.Monad.State.Strict (evalStateT)
import Data.Bifunctor (first) import Data.Bifunctor (first)
import Data.List (dropWhileEnd, nub, sort, unfoldr) import Data.List (dropWhileEnd, nub, sort, unfoldr)
import Data.Maybe (isJust) import Data.Maybe (isJust)
#if !(MIN_VERSION_base(4,13,0))
import Data.Semigroup ((<>)) import Data.Semigroup ((<>))
#endif
import Data.Text (Text) import Data.Text (Text)
import qualified Data.Text as T import qualified Data.Text as T
import Data.Time (Day) import Data.Time (Day)

2
hledger-web/Hledger/Web/Widget/Common.hs
View File

@ -18,7 +18,9 @@ module Hledger.Web.Widget.Common
import Data.Default (def) import Data.Default (def)
import Data.Foldable (find, for_) import Data.Foldable (find, for_)
#if !(MIN_VERSION_base(4,13,0))
import Data.Semigroup ((<>)) import Data.Semigroup ((<>))
#endif
import Data.Text (Text) import Data.Text (Text)
import qualified Data.Text as T import qualified Data.Text as T
import System.FilePath (takeFileName) import System.FilePath (takeFileName)