diff --git a/ihaskell.cabal b/ihaskell.cabal index 2d853321..8d21aafe 100644 --- a/ihaskell.cabal +++ b/ihaskell.cabal @@ -49,7 +49,7 @@ data-files: library hs-source-dirs: src default-language: Haskell2010 - ghc-options: -Wincomplete-patterns -Wmissing-signatures -Wunused-do-bind -Wunused-local-binds -Wunused-top-binds -Wunused-matches + ghc-options: -Wincomplete-patterns -Wmissing-signatures -Wunused-do-bind -Wunused-local-binds -Wunused-top-binds -Wunused-matches -Wunused-imports build-depends: aeson >=1.0, base >=4.9, @@ -125,7 +125,7 @@ executable ihaskell -- Other library packages from which modules are imported. default-language: Haskell2010 - ghc-options: -Wincomplete-patterns -Wmissing-signatures -Wunused-do-bind -Wunused-local-binds -Wunused-top-binds -Wunused-matches + ghc-options: -Wincomplete-patterns -Wmissing-signatures -Wunused-do-bind -Wunused-local-binds -Wunused-top-binds -Wunused-matches -Wunused-imports build-depends: ihaskell -any, base >=4.9 && < 4.13, @@ -152,7 +152,7 @@ Test-Suite hspec IHaskell.Test.Util IHaskell.Test.Parser default-language: Haskell2010 - ghc-options: -Wincomplete-patterns -Wmissing-signatures -Wunused-do-bind -Wunused-local-binds -Wunused-top-binds -Wunused-matches + ghc-options: -Wincomplete-patterns -Wmissing-signatures -Wunused-do-bind -Wunused-local-binds -Wunused-top-binds -Wunused-matches -Wunused-imports build-depends: base, ihaskell, diff --git a/main/Main.hs b/main/Main.hs index 92582900..9dc9fe15 100644 --- a/main/Main.hs +++ b/main/Main.hs @@ -7,17 +7,12 @@ module Main (main) where import IHaskellPrelude import qualified Data.Text as T -import qualified Data.Text.Lazy as LT -import qualified Data.ByteString as BS import qualified Data.ByteString.Lazy as LBS -import qualified Data.ByteString.Char8 as CBS -- Standard library imports. -import Control.Concurrent (threadDelay) import Control.Concurrent.Chan import Control.Arrow (second) import Data.Aeson -import System.Directory import System.Process (readProcess, readProcessWithExitCode) import System.Exit (exitSuccess, ExitCode(ExitSuccess)) import Control.Exception (try, SomeException) @@ -25,7 +20,6 @@ import System.Environment (getArgs) import System.Environment (setEnv) import System.Posix.Signals import qualified Data.Map as Map -import qualified Data.Text.Encoding as E import Data.List (break, last) import Data.Version (showVersion) @@ -35,7 +29,6 @@ import IHaskell.Eval.Completion (complete) import IHaskell.Eval.Inspect (inspect) import IHaskell.Eval.Evaluate import IHaskell.Display -import IHaskell.Eval.Info import IHaskell.Eval.Widgets (widgetHandler) import IHaskell.Flags import IHaskell.IPython @@ -49,13 +42,6 @@ import qualified IHaskell.IPython.Stdin as Stdin -- Cabal imports. import Paths_ihaskell(version) --- GHC API imports. -#if MIN_VERSION_ghc(8,4,0) -import GHC hiding (extensions, language, convert) -#else -import GHC hiding (extensions, language) -#endif - main :: IO () main = do args <- parseFlags <$> getArgs diff --git a/src/IHaskell/BrokenPackages.hs b/src/IHaskell/BrokenPackages.hs index 853a80cd..5cb66019 100644 --- a/src/IHaskell/BrokenPackages.hs +++ b/src/IHaskell/BrokenPackages.hs @@ -4,14 +4,9 @@ module IHaskell.BrokenPackages (getBrokenPackages) where import IHaskellPrelude import qualified Data.Text as T -import qualified Data.Text.Lazy as LT -import qualified Data.ByteString as BS -import qualified Data.ByteString.Lazy as LBS -import qualified Data.ByteString.Char8 as CBS import Text.Parsec import Text.Parsec.String -import Control.Applicative hiding ((<|>), many) import Shelly diff --git a/src/IHaskell/CSS.hs b/src/IHaskell/CSS.hs index 3e562fcb..161261a0 100644 --- a/src/IHaskell/CSS.hs +++ b/src/IHaskell/CSS.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE NoImplicitPrelude #-} module IHaskell.CSS (ihaskellCSS) where import IHaskellPrelude @@ -5,7 +6,7 @@ import IHaskellPrelude ihaskellCSS :: String ihaskellCSS = unlines - [ + [ -- Custom IHaskell CSS "/* Styles used for the Hoogle display in the pager */" , ".hoogle-doc {" @@ -42,7 +43,7 @@ ihaskellCSS = , ".hoogle-class {" , "font-weight: bold;" , "}" - , + , -- Styles used for basic displays ".get-type {" , "color: green;" @@ -75,13 +76,13 @@ ihaskellCSS = , ".err-msg.in.collapse {" , "padding-top: 0.7em;" , "}" - , + , -- Code that will get highlighted before it is highlighted ".highlight-code {" , "white-space: pre;" , "font-family: monospace;" , "}" - , + , -- Hlint styles ".suggestion-warning { " , "font-weight: bold;" diff --git a/src/IHaskell/Convert.hs b/src/IHaskell/Convert.hs index 1cf2d010..7bccf94e 100644 --- a/src/IHaskell/Convert.hs +++ b/src/IHaskell/Convert.hs @@ -1,14 +1,9 @@ {-# LANGUAGE NoImplicitPrelude #-} --- | Description : mostly reversible conversion between ipynb and lhs +-- | Description : mostly reversible conversion between ipynb and lhs module IHaskell.Convert (convert) where import IHaskellPrelude -import qualified Data.Text as T -import qualified Data.Text.Lazy as LT -import qualified Data.ByteString as BS -import qualified Data.ByteString.Lazy as LBS -import qualified Data.ByteString.Char8 as CBS import Control.Monad.Identity (Identity(Identity), unless, when) import IHaskell.Convert.Args (ConvertSpec(..), fromJustConvertSpec, toConvertSpec) diff --git a/src/IHaskell/Convert/Args.hs b/src/IHaskell/Convert/Args.hs index 5bf99634..c8fc8176 100644 --- a/src/IHaskell/Convert/Args.hs +++ b/src/IHaskell/Convert/Args.hs @@ -4,18 +4,13 @@ module IHaskell.Convert.Args (ConvertSpec(..), fromJustConvertSpec, toConvertSpec) where import IHaskellPrelude -import qualified Data.Text as T import qualified Data.Text.Lazy as LT -import qualified Data.ByteString as BS -import qualified Data.ByteString.Lazy as LBS -import qualified Data.ByteString.Char8 as CBS import Control.Applicative ((<$>)) import Control.Monad.Identity (Identity(Identity)) import Data.Char (toLower) import Data.List (partition) import Data.Maybe (fromMaybe) -import qualified Data.Text.Lazy as T (pack, Text) import IHaskell.Flags (Argument(..), LhsStyle, lhsStyleBird, NotebookFormat(..)) import System.FilePath ((<.>), dropExtension, takeExtension) import Text.Printf (printf) diff --git a/src/IHaskell/Convert/IpynbToLhs.hs b/src/IHaskell/Convert/IpynbToLhs.hs index 5f55e9bf..d76ed318 100644 --- a/src/IHaskell/Convert/IpynbToLhs.hs +++ b/src/IHaskell/Convert/IpynbToLhs.hs @@ -4,11 +4,8 @@ module IHaskell.Convert.IpynbToLhs (ipynbToLhs) where import IHaskellPrelude -import qualified Data.Text as T import qualified Data.Text.Lazy as LT -import qualified Data.ByteString as BS import qualified Data.ByteString.Lazy as LBS -import qualified Data.ByteString.Char8 as CBS import Data.Aeson (decode, Object, Value(Array, Object, String)) import Data.Vector (Vector) diff --git a/src/IHaskell/Convert/LhsToIpynb.hs b/src/IHaskell/Convert/LhsToIpynb.hs index 20756252..f75b812d 100644 --- a/src/IHaskell/Convert/LhsToIpynb.hs +++ b/src/IHaskell/Convert/LhsToIpynb.hs @@ -6,13 +6,11 @@ module IHaskell.Convert.LhsToIpynb (lhsToIpynb) where import IHaskellPrelude import qualified Data.Text as T import qualified Data.Text.Lazy as LT -import qualified Data.ByteString as BS import qualified Data.ByteString.Lazy as LBS -import qualified Data.ByteString.Char8 as CBS import Data.Aeson ((.=), encode, object, Value(Array, Bool, Number, String, Null)) import Data.Char (isSpace) -import qualified Data.Vector as V (fromList, singleton) +import qualified Data.Vector as V import qualified Data.List as List import IHaskell.Flags (LhsStyle(LhsStyle)) diff --git a/src/IHaskell/Display.hs b/src/IHaskell/Display.hs index 2e099097..bab48ea3 100644 --- a/src/IHaskell/Display.hs +++ b/src/IHaskell/Display.hs @@ -57,14 +57,10 @@ module IHaskell.Display ( import IHaskellPrelude import qualified Data.Text as T -import qualified Data.Text.Lazy as LT -import qualified Data.ByteString as BS -import qualified Data.ByteString.Lazy as LBS import qualified Data.ByteString.Char8 as CBS import Data.Serialize as Serialize import qualified Data.ByteString.Base64 as Base64 -import Data.Aeson (Value) import System.Directory (getTemporaryDirectory, setCurrentDirectory) import Control.Concurrent.STM (atomically) diff --git a/src/IHaskell/Eval/Completion.hs b/src/IHaskell/Eval/Completion.hs index 10af8646..79b215be 100644 --- a/src/IHaskell/Eval/Completion.hs +++ b/src/IHaskell/Eval/Completion.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE CPP, DoAndIfThenElse, TypeFamilies, FlexibleContexts #-} +{-# LANGUAGE CPP, NoImplicitPrelude, DoAndIfThenElse, TypeFamilies, FlexibleContexts #-} {- | Description: Generates tab completion options. @@ -13,19 +13,12 @@ This has a limited amount of context sensitivity. It distinguishes between four module IHaskell.Eval.Completion (complete, completionTarget, completionType, CompletionType(..)) where import IHaskellPrelude -import qualified Data.Text as T -import qualified Data.Text.Lazy as LT -import qualified Data.ByteString as BS -import qualified Data.ByteString.Lazy as LBS -import qualified Data.ByteString.Char8 as CBS import Control.Applicative ((<$>)) -import Data.ByteString.UTF8 hiding (drop, take, lines, length) import Data.Char -import Data.List (nub, init, last, head, elemIndex, concatMap) +import Data.List (nub, init, last, elemIndex, concatMap) import qualified Data.List.Split as Split import qualified Data.List.Split.Internals as Split -import Data.Maybe (fromJust) import System.Environment (getEnv) import GHC hiding (Qualified) @@ -36,14 +29,9 @@ import GHC.PackageDb (ExposedModule(exposedName)) #endif import DynFlags import GhcMonad -import qualified GhcMonad -import PackageConfig import Outputable (showPpr) -import MonadUtils (MonadIO) - import System.Directory -import System.FilePath import Control.Exception (try) import System.Console.Haskeline.Completion diff --git a/src/IHaskell/Eval/Evaluate.hs b/src/IHaskell/Eval/Evaluate.hs index 55895acc..cd837164 100644 --- a/src/IHaskell/Eval/Evaluate.hs +++ b/src/IHaskell/Eval/Evaluate.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE NoOverloadedStrings, TypeSynonymInstances, GADTs, CPP #-} +{-# LANGUAGE NoOverloadedStrings, NoImplicitPrelude, TypeSynonymInstances, GADTs, CPP #-} {- | Description : Wrapper around GHC API, exposing a single `evaluate` interface that runs a statement, declaration, import, or directive. @@ -19,59 +19,37 @@ module IHaskell.Eval.Evaluate ( ) where import IHaskellPrelude -import qualified Data.Text as T -import qualified Data.Text.Lazy as LT -import qualified Data.ByteString as BS -import qualified Data.ByteString.Lazy as LBS -import qualified Data.ByteString.Char8 as CBS import Control.Concurrent (forkIO, threadDelay) import Data.Foldable (foldMap) -import Prelude (putChar, head, tail, last, init, (!!)) -import Data.List (findIndex, and, foldl1, nubBy) -import Text.Printf +import Prelude (head, tail, last, init) +import Data.List (nubBy) import Data.Char as Char import Data.Dynamic -import Data.Typeable import qualified Data.Serialize as Serialize import System.Directory #if !MIN_VERSION_base(4,8,0) import System.Posix.IO (createPipe) #endif import System.Posix.IO (fdToHandle) -import System.IO (hGetChar, hSetEncoding, utf8, hFlush) +import System.IO (hGetChar, hSetEncoding, utf8) import System.Random (getStdGen, randomRs) -import Unsafe.Coerce -import Control.Monad (guard) import System.Process import System.Exit import Data.Maybe (fromJust) -import qualified Control.Monad.IO.Class as MonadIO (MonadIO, liftIO) -import qualified MonadUtils (MonadIO, liftIO) import System.Environment (getEnv) -import qualified Data.Map as Map import qualified GHC.Paths -import NameSet -import Name -import PprTyThing import InteractiveEval import DynFlags -import Type import Exception (gtry) import HscTypes import HscMain -import qualified Linker -import TcType -import Unify -import InstEnv -import GhcMonad (liftIO, withSession) +import GhcMonad (liftIO) import GHC hiding (Stmt, TypeSig) import Exception hiding (evaluate) import Outputable hiding ((<>)) import Packages -import Module hiding (Module) -import qualified Pretty import FastString import Bag import qualified ErrUtils @@ -83,14 +61,9 @@ import IHaskell.Eval.Lint import IHaskell.Display import qualified IHaskell.Eval.Hoogle as Hoogle import IHaskell.Eval.Util -import IHaskell.Eval.Widgets import IHaskell.BrokenPackages -import qualified IHaskell.IPython.Message.UUID as UUID import StringUtils (replace, split, strip, rstrip) -import Paths_ihaskell (version) -import Data.Version (versionBranch) - data ErrorOccurred = Success | Failure deriving (Show, Eq) diff --git a/src/IHaskell/Eval/Hoogle.hs b/src/IHaskell/Eval/Hoogle.hs index f095c972..3904d025 100644 --- a/src/IHaskell/Eval/Hoogle.hs +++ b/src/IHaskell/Eval/Hoogle.hs @@ -9,9 +9,6 @@ module IHaskell.Eval.Hoogle ( ) where import IHaskellPrelude -import qualified Data.Text as T -import qualified Data.Text.Lazy as LT -import qualified Data.ByteString as BS import qualified Data.ByteString.Lazy as LBS import qualified Data.ByteString.Char8 as CBS @@ -21,8 +18,6 @@ import Data.Aeson import qualified Data.List as List import Data.Char (isAscii, isAlphaNum) - -import IHaskell.IPython import StringUtils (split, strip, replace) -- | Types of formats to render output to. diff --git a/src/IHaskell/Eval/Info.hs b/src/IHaskell/Eval/Info.hs index cd763c31..9a8fcc9b 100644 --- a/src/IHaskell/Eval/Info.hs +++ b/src/IHaskell/Eval/Info.hs @@ -4,11 +4,6 @@ module IHaskell.Eval.Info (info) where import IHaskellPrelude -import qualified Data.Text as T -import qualified Data.Text.Lazy as LT -import qualified Data.ByteString as BS -import qualified Data.ByteString.Lazy as LBS -import qualified Data.ByteString.Char8 as CBS import IHaskell.Eval.Evaluate (typeCleaner, Interpreter) diff --git a/src/IHaskell/Eval/Inspect.hs b/src/IHaskell/Eval/Inspect.hs index 303616fb..0662ae73 100644 --- a/src/IHaskell/Eval/Inspect.hs +++ b/src/IHaskell/Eval/Inspect.hs @@ -7,11 +7,6 @@ Description: Generates inspections when asked for by the frontend. module IHaskell.Eval.Inspect (inspect) where import IHaskellPrelude -import qualified Data.Text as T -import qualified Data.Text.Lazy as LT -import qualified Data.ByteString as BS -import qualified Data.ByteString.Lazy as LBS -import qualified Data.ByteString.Char8 as CBS import qualified Prelude as P @@ -22,7 +17,6 @@ import Exception (ghandle) import IHaskell.Eval.Evaluate (Interpreter) import IHaskell.Display import IHaskell.Eval.Util (getType) -import IHaskell.Types -- | Characters used in Haskell operators. operatorChars :: String diff --git a/src/IHaskell/Eval/Lint.hs b/src/IHaskell/Eval/Lint.hs index e7cbb93f..704624e8 100644 --- a/src/IHaskell/Eval/Lint.hs +++ b/src/IHaskell/Eval/Lint.hs @@ -3,33 +3,21 @@ module IHaskell.Eval.Lint (lint) where import IHaskellPrelude -import qualified Data.Text as T -import qualified Data.Text.Lazy as LT -import qualified Data.ByteString as BS -import qualified Data.ByteString.Lazy as LBS -import qualified Data.ByteString.Char8 as CBS -import Prelude (head, tail, last) -import Control.Monad -import Data.List (findIndex) -import Data.Char -import Data.Monoid +import Prelude (last) import Data.Maybe (mapMaybe) import System.IO.Unsafe (unsafePerformIO) import Language.Haskell.Exts.Syntax hiding (Module) import qualified Language.Haskell.Exts.Syntax as SrcExts import Language.Haskell.Exts (parseFileContentsWithMode) -import Language.Haskell.Exts.Build (doE) import Language.Haskell.Exts hiding (Module) -import Language.Haskell.Exts.SrcLoc import Language.Haskell.HLint as HLint import Language.Haskell.HLint3 import IHaskell.Types import IHaskell.Display -import IHaskell.IPython import IHaskell.Eval.Parser hiding (line) import StringUtils (replace) diff --git a/src/IHaskell/Eval/ParseShell.hs b/src/IHaskell/Eval/ParseShell.hs index 5a2927ee..0ac9a173 100644 --- a/src/IHaskell/Eval/ParseShell.hs +++ b/src/IHaskell/Eval/ParseShell.hs @@ -5,11 +5,6 @@ module IHaskell.Eval.ParseShell (parseShell) where import IHaskellPrelude -import qualified Data.Text as T -import qualified Data.Text.Lazy as LT -import qualified Data.ByteString as BS -import qualified Data.ByteString.Lazy as LBS -import qualified Data.ByteString.Char8 as CBS import Text.ParserCombinators.Parsec diff --git a/src/IHaskell/Eval/Parser.hs b/src/IHaskell/Eval/Parser.hs index 3a52ec23..032eb6b0 100644 --- a/src/IHaskell/Eval/Parser.hs +++ b/src/IHaskell/Eval/Parser.hs @@ -16,11 +16,6 @@ module IHaskell.Eval.Parser ( ) where import IHaskellPrelude -import qualified Data.Text as T -import qualified Data.Text.Lazy as LT -import qualified Data.ByteString as BS -import qualified Data.ByteString.Lazy as LBS -import qualified Data.ByteString.Char8 as CBS import Data.Char (toLower) import Data.List (maximumBy, inits) diff --git a/src/IHaskell/Eval/Util.hs b/src/IHaskell/Eval/Util.hs index f6b79caf..a6ea9988 100644 --- a/src/IHaskell/Eval/Util.hs +++ b/src/IHaskell/Eval/Util.hs @@ -27,10 +27,6 @@ module IHaskell.Eval.Util ( ) where import IHaskellPrelude -import qualified Data.Text as T -import qualified Data.Text.Lazy as LT -import qualified Data.ByteString as BS -import qualified Data.ByteString.Lazy as LBS import qualified Data.ByteString.Char8 as CBS -- GHC imports. @@ -38,18 +34,12 @@ import DynFlags import FastString import GHC import GhcMonad -import HsImpExp import HscTypes -import InteractiveEval -import Module -import Packages -import RdrName import NameSet import Name import PprTyThing import InstEnv (ClsInst(..)) import Unify (tcMatchTys) -import VarSet (mkVarSet) import qualified Pretty import qualified Outputable as O diff --git a/src/IHaskell/Eval/Widgets.hs b/src/IHaskell/Eval/Widgets.hs index aec8bec5..d0bd2ea5 100644 --- a/src/IHaskell/Eval/Widgets.hs +++ b/src/IHaskell/Eval/Widgets.hs @@ -14,7 +14,6 @@ module IHaskell.Eval.Widgets ( import IHaskellPrelude -import Control.Concurrent.Chan (writeChan) import Control.Concurrent.STM (atomically) import Control.Concurrent.STM.TChan import Control.Monad (foldM) @@ -25,8 +24,6 @@ import System.IO.Unsafe (unsafePerformIO) import IHaskell.Display import IHaskell.Eval.Util (unfoldM) import IHaskell.IPython.Types (showMessageType) -import IHaskell.IPython.Message.UUID -import IHaskell.IPython.Message.Writer import IHaskell.Types -- All comm_open messages go here diff --git a/src/IHaskell/Flags.hs b/src/IHaskell/Flags.hs index 57f80bb6..61595797 100644 --- a/src/IHaskell/Flags.hs +++ b/src/IHaskell/Flags.hs @@ -14,15 +14,10 @@ module IHaskell.Flags ( import IHaskellPrelude hiding (Arg(..)) import qualified Data.Text as T -import qualified Data.Text.Lazy as LT -import qualified Data.ByteString as BS -import qualified Data.ByteString.Lazy as LBS -import qualified Data.ByteString.Char8 as CBS import System.Console.CmdArgs.Explicit import System.Console.CmdArgs.Text import Data.List (findIndex) -import IHaskell.Types -- Command line arguments to IHaskell. A set of arguments is annotated with the mode being invoked. data Args = Args IHaskellMode [Argument] diff --git a/src/IHaskell/IPython.hs b/src/IHaskell/IPython.hs index 809c3860..abbc5dc0 100644 --- a/src/IHaskell/IPython.hs +++ b/src/IHaskell/IPython.hs @@ -16,11 +16,7 @@ module IHaskell.IPython ( import IHaskellPrelude import qualified Data.Text as T import qualified Data.Text.Lazy as LT -import qualified Data.ByteString as BS -import qualified Data.ByteString.Lazy as LBS -import qualified Data.ByteString.Char8 as CBS -import Control.Concurrent (threadDelay) import System.Argv0 import qualified Shelly as SH import qualified System.IO as IO @@ -32,12 +28,10 @@ import Data.Aeson.Text (encodeToTextBuilder) import Data.Text.Lazy.Builder (toLazyText) import Control.Monad (mplus) -import qualified System.IO.Strict as StrictIO import qualified Paths_ihaskell as Paths import qualified GHC.Paths import IHaskell.Types -import System.Posix.Signals import StringUtils (replace, split) diff --git a/src/IHaskell/IPython/Stdin.hs b/src/IHaskell/IPython/Stdin.hs index da4757a3..1c96e0ff 100644 --- a/src/IHaskell/IPython/Stdin.hs +++ b/src/IHaskell/IPython/Stdin.hs @@ -26,16 +26,9 @@ module IHaskell.IPython.Stdin (fixStdin, recordParentHeader, recordKernelProfile) where import IHaskellPrelude -import qualified Data.Text as T -import qualified Data.Text.Lazy as LT -import qualified Data.ByteString as BS -import qualified Data.ByteString.Lazy as LBS -import qualified Data.ByteString.Char8 as CBS import Control.Concurrent import Control.Applicative ((<$>)) -import Control.Concurrent.Chan -import Control.Monad import GHC.IO.Handle import GHC.IO.Handle.Types import System.Posix.IO diff --git a/src/IHaskell/Types.hs b/src/IHaskell/Types.hs index d581ac6f..befa83a7 100644 --- a/src/IHaskell/Types.hs +++ b/src/IHaskell/Types.hs @@ -39,17 +39,8 @@ module IHaskell.Types ( import IHaskellPrelude -import qualified Data.ByteString as BS -import qualified Data.ByteString.Char8 as CBS -import qualified Data.ByteString.Lazy as LBS -import qualified Data.Text as T -import qualified Data.Text.Lazy as LT - import Data.Aeson (Value, (.=), object) -import Data.Aeson.Types (emptyObject) -import qualified Data.ByteString.Char8 as Char import Data.Function (on) -import Data.Semigroup import Data.Serialize import GHC.Generics diff --git a/src/StringUtils.hs b/src/StringUtils.hs index acee0a24..5afcce44 100644 --- a/src/StringUtils.hs +++ b/src/StringUtils.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE NoImplicitPrelude #-} module StringUtils ( strip, lstrip, diff --git a/src/tests/IHaskell/Test/Parser.hs b/src/tests/IHaskell/Test/Parser.hs index 288d7313..730f2011 100644 --- a/src/tests/IHaskell/Test/Parser.hs +++ b/src/tests/IHaskell/Test/Parser.hs @@ -6,8 +6,7 @@ import Prelude import Data.String.Here (hereLit) import Test.Hspec -import Test.Hspec.Contrib.HUnit -import Test.HUnit (assertBool, assertFailure) +import Test.HUnit (assertFailure) import IHaskell.Test.Util (ghc, strip) import IHaskell.Eval.Parser (parseString, getModuleName, unloc, layoutChunks, Located(..),