diff --git a/koneko.cabal b/koneko.cabal index d222d00..50d47f1 100644 --- a/koneko.cabal +++ b/koneko.cabal @@ -75,7 +75,7 @@ common deps ghc-options: -Wall -fwarn-incomplete-uni-patterns -Werror if impl(ghc >= 9.8) - ghc-options: -Wwarn=unused-imports -Wwarn=x-partial + ghc-options: -Wwarn=x-partial library diff --git a/src/Koneko/Eval.hs b/src/Koneko/Eval.hs index 81ef132..f282896 100644 --- a/src/Koneko/Eval.hs +++ b/src/Koneko/Eval.hs @@ -64,7 +64,7 @@ import System.FilePath (()) import System.IO (hPutStrLn, stderr) #if !MIN_VERSION_GLASGOW_HASKELL(8, 8, 1, 0) -import Data.Monoid((<>)) +import Data.Monoid ((<>)) #endif import qualified Data.HashMap.Strict as H diff --git a/src/Koneko/Read.hs b/src/Koneko/Read.hs index 09e7649..c9cc67d 100644 --- a/src/Koneko/Read.hs +++ b/src/Koneko/Read.hs @@ -40,7 +40,6 @@ module Koneko.Read (read, read') where import Control.Exception (throw) import Control.Monad (replicateM) import Data.Functor -import Data.List (foldl') import Data.Maybe (fromJust) -- careful! import Data.Text (Text) import Prelude hiding (quot, read) @@ -51,6 +50,9 @@ import Text.Megaparsec.Char import Control.Monad.Fail (MonadFail) import Data.List (init) #endif +#if !MIN_VERSION_GLASGOW_HASKELL(9, 10, 1, 0) +import Data.List (foldl') +#endif import qualified Data.Char as C import qualified Data.Text as T diff --git a/src/Koneko/Test.hs b/src/Koneko/Test.hs index 7bbd28f..04a9a77 100644 --- a/src/Koneko/Test.hs +++ b/src/Koneko/Test.hs @@ -25,7 +25,7 @@ import GHC.IO.Handle (hDuplicate, hDuplicateTo) import Control.Exception (bracket) import Control.Monad (unless, when) import Data.Char (isSpace) -import Data.Foldable (foldl', traverse_) +import Data.Foldable (traverse_) import Data.Text (Text) import Prelude hiding (exp, fail) import System.Console.CmdArgs.Verbosity (Verbosity(..), getVerbosity) @@ -35,7 +35,10 @@ import System.FilePath (takeExtension) import System.IO (Handle) #if !MIN_VERSION_GLASGOW_HASKELL(8, 8, 1, 0) -import Data.Monoid((<>)) +import Data.Monoid ((<>)) +#endif +#if !MIN_VERSION_GLASGOW_HASKELL(9, 10, 1, 0) +import Data.List (foldl') #endif import qualified Data.Text as T diff --git a/src/Main.hs b/src/Main.hs index 77e43ca..05aba2e 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -22,7 +22,7 @@ import Data.Version (showVersion) import System.Console.CmdArgs hiding (args) #if !MIN_VERSION_GLASGOW_HASKELL(8, 8, 1, 0) -import Data.Monoid((<>)) +import Data.Monoid ((<>)) #endif import qualified Data.Text as T