Commit 14e279af authored by Alfredo Di Napoli's avatar Alfredo Di Napoli

Redundant imports

parent e7f152a4
Pipeline #30663 failed with stages
in 215 minutes and 18 seconds
......@@ -333,7 +333,7 @@ import GHC.Iface.Load ( loadSysInterface )
import GHC.Hs
import GHC.Builtin.Types.Prim ( alphaTyVars )
import GHC.Iface.Tidy
import GHC.Data.Bag ( listToBag, maybeToBag )
import GHC.Data.Bag ( maybeToBag )
import GHC.Data.StringBuffer
import GHC.Data.FastString
import qualified GHC.LanguageExtensions as LangExt
......
......@@ -66,7 +66,6 @@ import GHC.Data.Graph.Directed ( SCC, flattenSCC, flattenSCCs, Node(..)
, stronglyConnCompFromEdgedVerticesUniq )
import GHC.Types.Unique.Set
import GHC.Data.OrdList
import GHC.Utils.Error ( mkPlainErrMsg )
import qualified GHC.LanguageExtensions as LangExt
import Control.Monad
......
......@@ -79,7 +79,6 @@ import GHC.Utils.Outputable as Outputable
import GHC.Utils.Panic
import GHC.Types.Error
import GHC.Types.SrcLoc as SrcLoc
import GHC.Utils.Misc
import System.Directory
import System.Exit ( ExitCode(..), exitWith )
......@@ -93,7 +92,7 @@ import Data.Time
import Debug.Trace
import Control.Monad
import Control.Monad.IO.Class
import Control.Monad.Catch as MC (handle, catchIOError )
import Control.Monad.Catch as MC ( handle )
import System.IO
import GHC.Conc ( getAllocationCounter )
import System.CPUTime
......
......@@ -5,9 +5,6 @@ module GHC.Utils.Error where
import GHC.Prelude
import GHC.Utils.Outputable (SDoc, PprStyle )
import {-# SOURCE #-} GHC.Driver.Session ( DynFlags )
import GHC.Types.Error ( MessageClass, MsgDoc )
import GHC.Types.SrcLoc ( SrcSpan )
import GHC.Driver.Flags ( WarnReason )
type DumpAction = DynFlags -> PprStyle -> DumpOptions -> String
-> DumpFormat -> SDoc -> IO ()
......
......@@ -576,7 +576,7 @@ ghciLogAction old_log_action lastErrLocations
dflags msg_class srcSpan msg = do
old_log_action dflags msg_class srcSpan msg
case msg_class of
MCDiagnostic SevError -> case srcSpan of
MCDiagnostic (SevError _mb_reason) -> case srcSpan of
RealSrcSpan rsp _ -> modifyIORef lastErrLocations
(++ [(srcLocFile (realSrcSpanStart rsp), srcLocLine (realSrcSpanStart rsp))])
_ -> return ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment