diff --git a/hledger-lib/Hledger/Data/Dates.hs b/hledger-lib/Hledger/Data/Dates.hs index fcbe69b34..f78d50460 100644 --- a/hledger-lib/Hledger/Data/Dates.hs +++ b/hledger-lib/Hledger/Data/Dates.hs @@ -4,6 +4,7 @@ {-# LANGUAGE TypeFamilies #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE ScopedTypeVariables #-} +{-# LANGUAGE PackageImports #-} {-| Date parsing and utilities for hledger. @@ -73,9 +74,9 @@ module Hledger.Data.Dates ( where import Prelude () -import Prelude.Compat +import "base-compat" Prelude.Compat import Control.Monad -import Data.List.Compat +import "base-compat" Data.List.Compat import Data.Default import Data.Maybe import Data.Text (Text) diff --git a/hledger-lib/Hledger/Data/StringFormat.hs b/hledger-lib/Hledger/Data/StringFormat.hs index 4e2c33b37..01a618aea 100644 --- a/hledger-lib/Hledger/Data/StringFormat.hs +++ b/hledger-lib/Hledger/Data/StringFormat.hs @@ -2,7 +2,7 @@ -- hledger's report item fields. The formats are used by -- report-specific renderers like renderBalanceReportItem. -{-# LANGUAGE FlexibleContexts, TypeFamilies #-} +{-# LANGUAGE FlexibleContexts, TypeFamilies, PackageImports #-} module Hledger.Data.StringFormat ( parseStringFormat @@ -14,7 +14,7 @@ module Hledger.Data.StringFormat ( ) where import Prelude () -import Prelude.Compat +import "base-compat" Prelude.Compat import Numeric import Data.Char (isPrint) import Data.Maybe diff --git a/hledger-lib/Hledger/Read/Common.hs b/hledger-lib/Hledger/Read/Common.hs index 10f8302d6..2355365cf 100644 --- a/hledger-lib/Hledger/Read/Common.hs +++ b/hledger-lib/Hledger/Read/Common.hs @@ -15,6 +15,7 @@ Some of these might belong in Hledger.Read.JournalReader or Hledger.Read. --- * module {-# LANGUAGE CPP, BangPatterns, DeriveDataTypeable, RecordWildCards, NamedFieldPuns, NoMonoLocalBinds, ScopedTypeVariables, FlexibleContexts, TupleSections, OverloadedStrings #-} {-# LANGUAGE LambdaCase #-} +{-# LANGUAGE PackageImports #-} module Hledger.Read.Common ( Reader (..), @@ -94,8 +95,8 @@ module Hledger.Read.Common ( where --- * imports import Prelude () -import Prelude.Compat hiding (readFile) -import Control.Monad.Compat +import "base-compat" Prelude.Compat hiding (readFile) +import "base-compat" Control.Monad.Compat import Control.Monad.Except (ExceptT(..), runExceptT, throwError) --, catchError) import Control.Monad.State.Strict import Data.Char @@ -103,7 +104,7 @@ import Data.Data import Data.Decimal (DecimalRaw (Decimal), Decimal) import Data.Default import Data.Functor.Identity -import Data.List.Compat +import "base-compat" Data.List.Compat import Data.List.NonEmpty (NonEmpty(..)) import Data.Maybe import qualified Data.Map as M diff --git a/hledger-lib/Hledger/Read/CsvReader.hs b/hledger-lib/Hledger/Read/CsvReader.hs index 15ec8df0c..80e0a8cac 100644 --- a/hledger-lib/Hledger/Read/CsvReader.hs +++ b/hledger-lib/Hledger/Read/CsvReader.hs @@ -11,6 +11,7 @@ A reader for CSV data, using an extra rules file to help interpret the data. {-# LANGUAGE ViewPatterns #-} {-# LANGUAGE TypeSynonymInstances #-} {-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE PackageImports #-} module Hledger.Read.CsvReader ( -- * Reader @@ -28,14 +29,14 @@ module Hledger.Read.CsvReader ( ) where import Prelude () -import Prelude.Compat hiding (getContents) +import "base-compat" Prelude.Compat hiding (getContents) import Control.Exception hiding (try) import Control.Monad import Control.Monad.Except import Control.Monad.State.Strict (StateT, get, modify', evalStateT) -- import Test.HUnit import Data.Char (toLower, isDigit, isSpace) -import Data.List.Compat +import "base-compat" Data.List.Compat import Data.List.NonEmpty (fromList) import Data.Maybe import Data.Ord diff --git a/hledger-lib/Hledger/Read/JournalReader.hs b/hledger-lib/Hledger/Read/JournalReader.hs index 8345ae690..c1695f073 100644 --- a/hledger-lib/Hledger/Read/JournalReader.hs +++ b/hledger-lib/Hledger/Read/JournalReader.hs @@ -29,7 +29,7 @@ import cycles. --- * module -{-# LANGUAGE CPP, RecordWildCards, NamedFieldPuns, NoMonoLocalBinds, ScopedTypeVariables, FlexibleContexts, TupleSections, OverloadedStrings #-} +{-# LANGUAGE CPP, RecordWildCards, NamedFieldPuns, NoMonoLocalBinds, ScopedTypeVariables, FlexibleContexts, TupleSections, OverloadedStrings, PackageImports #-} module Hledger.Read.JournalReader ( --- * exports @@ -72,7 +72,7 @@ module Hledger.Read.JournalReader ( where --- * imports import Prelude () -import Prelude.Compat hiding (readFile) +import "base-compat" Prelude.Compat hiding (readFile) import qualified Control.Exception as C import Control.Monad import Control.Monad.Except (ExceptT(..), runExceptT, throwError) diff --git a/hledger-lib/Hledger/Read/TimeclockReader.hs b/hledger-lib/Hledger/Read/TimeclockReader.hs index 4dd2ee355..d3c837dd5 100644 --- a/hledger-lib/Hledger/Read/TimeclockReader.hs +++ b/hledger-lib/Hledger/Read/TimeclockReader.hs @@ -40,7 +40,7 @@ i, o or O. The meanings of the codes are: -} -{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE OverloadedStrings, PackageImports #-} module Hledger.Read.TimeclockReader ( -- * Reader @@ -52,7 +52,7 @@ module Hledger.Read.TimeclockReader ( ) where import Prelude () -import Prelude.Compat +import "base-compat" Prelude.Compat import Control.Monad import Control.Monad.Except (ExceptT) import Control.Monad.State.Strict diff --git a/hledger-lib/Hledger/Read/TimedotReader.hs b/hledger-lib/Hledger/Read/TimedotReader.hs index da70994f9..ea20889b8 100644 --- a/hledger-lib/Hledger/Read/TimedotReader.hs +++ b/hledger-lib/Hledger/Read/TimedotReader.hs @@ -23,7 +23,7 @@ inc.client1 .... .... .. -} -{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE OverloadedStrings, PackageImports #-} module Hledger.Read.TimedotReader ( -- * Reader @@ -35,7 +35,7 @@ module Hledger.Read.TimedotReader ( ) where import Prelude () -import Prelude.Compat +import "base-compat" Prelude.Compat import Control.Monad import Control.Monad.Except (ExceptT) import Control.Monad.State.Strict