Commit ca8ac1f2 authored by mnislaih's avatar mnislaih

Fix import lists

parent fff08925
......@@ -10,7 +10,6 @@ module Desugar ( deSugar, deSugarExpr ) where
#include "HsVersions.h"
import Breakpoints
import DynFlags
import StaticFlags
import HscTypes
......
......@@ -14,45 +14,42 @@ module DsBreakpoint(
, mkBreakpointExpr
) where
import IOEnv ( ioToIOEnv )
import TysPrim ( alphaTyVar )
import TysWiredIn ( intTy, stringTy, mkTupleTy, mkListTy, boolTy )
import IOEnv
import TysPrim
import TysWiredIn
import PrelNames
import Module ( moduleName, moduleNameFS, modulePackageId )
import PackageConfig ( packageIdFS)
import SrcLoc ( SrcLoc, Located(..), SrcSpan, srcSpanFile,
noLoc, noSrcLoc, isGoodSrcSpan,
srcLocLine, srcLocCol, srcSpanStart )
import TyCon ( isUnLiftedTyCon, tyConDataCons )
import TypeRep ( Type(..) )
import Module
import PackageConfig
import SrcLoc
import TyCon
import TypeRep
import DataCon
import Type
import MkId ( unsafeCoerceId, lazyId )
import Name ( Name, mkInternalName )
import Var ( mkTyVar )
import Id ( Id, idType, mkGlobalId, idName )
import MkId
import Name
import Var
import Id
import IdInfo ( vanillaIdInfo, GlobalIdDetails (VanillaGlobal) )
import BasicTypes ( Boxity(Boxed) )
import OccName ( mkOccName, tvName )
import IdInfo
import BasicTypes
import OccName
import TcRnMonad
import HsSyn
import HsLit ( HsLit(HsString, HsInt) )
import CoreSyn ( CoreExpr, Expr (App) )
import CoreUtils ( exprType )
import HsLit
import CoreSyn
import CoreUtils
import Outputable
import ErrUtils ( debugTraceMsg )
import FastString ( mkFastString, unpackFS )
import DynFlags ( GhcMode(..), DynFlag(..) )
import ErrUtils
import FastString
import DynFlags
import DsMonad
import {-#SOURCE#-}DsExpr ( dsLExpr )
import Control.Monad
import Data.IORef
import Foreign.StablePtr ( newStablePtr, castStablePtrToPtr )
import GHC.Exts ( Ptr(..), Int(..), addr2Int#, unsafeCoerce# )
import Foreign.StablePtr
import GHC.Exts
mkBreakpointExpr :: SrcSpan -> Id -> DsM (LHsExpr Id)
mkBreakpointExpr loc bkptFuncId = do
......@@ -132,7 +129,7 @@ dynBreakpoint :: SrcSpan -> DsM (LHsExpr Id)
dynBreakpoint loc | not (isGoodSrcSpan loc) =
pprPanic "dynBreakpoint" (ppr loc)
dynBreakpoint loc = do
let autoBreakpoint = mkGlobalId VanillaGlobal breakpointAutoName
let autoBreakpoint = Id.mkGlobalId VanillaGlobal breakpointAutoName
breakpointAutoTy vanillaIdInfo
dflags <- getDOptsDs
ioToIOEnv$ debugTraceMsg dflags 3 (text "Breakpoint inserted at " <> ppr loc)
......@@ -173,7 +170,7 @@ mkJumpFunc bkptFuncId
(TyVarTy tyvar))))))))
build name extra = do
ATyCon opaqueTyCon <- dsLookupGlobal opaqueTyConName
return$ mkGlobalId VanillaGlobal name
return$ Id.mkGlobalId VanillaGlobal name
(basicType extra (mkTyConApp opaqueTyCon [])) vanillaIdInfo
mkTupleType tys = mkTupleTy Boxed (length tys) tys
......
......@@ -28,7 +28,6 @@ import ByteCodeLink
import ByteCodeItbls
import ByteCodeAsm
import RtClosureInspect
import Var
import IfaceEnv
import Config
import OccName
......@@ -63,7 +62,6 @@ import Control.Arrow ( second )
import Data.IORef
import Data.List
import Foreign.Ptr
import GHC.Exts
import System.IO
import System.Directory
......
......@@ -50,22 +50,18 @@ import HscTypes ( HscEnv )
import DataCon
import Type
import TcRnMonad
import TcRnMonad ( TcM, initTcPrintErrors, ioToTcRn, recoverM, writeMutVar )
import TcType
import TcMType
import TcUnify
import TcGadt
import DriverPhases
import TyCon
import Var
import Name
import VarEnv
import OccName
import VarSet
import Unique
import UniqSupply
import Var ( setVarUnique, mkTyVar, tyVarKind, setTyVarKind )
import VarEnv ( mkVarEnv )
import OccName ( emptyTidyOccEnv )
import VarSet ( VarSet, mkVarSet, varSetElems, unionVarSets )
import Unique ( getUnique, incrUnique )
import {-#SOURCE#-} TcRnDriver ( tcRnRecoverDataCon )
import TysPrim
......@@ -73,7 +69,6 @@ import PrelNames
import TysWiredIn
import Constants ( wORD_SIZE )
import FastString ( mkFastString )
import Outputable
import Maybes
import Panic
......@@ -85,12 +80,11 @@ import GHC.Exts
import GHC.Int ( Int32(..), Int64(..) )
import GHC.Word ( Word32(..), Word64(..) )
import Control.Monad ( liftM, liftM2, msum )
import Control.Monad
import Data.Maybe
import Data.Array.Base
import Data.List ( partition )
import Foreign.Storable
import Foreign ( unsafePerformIO )
---------------------------------------------
-- * A representation of semi evaluated Terms
......
......@@ -18,7 +18,7 @@ import Name
import Var ( Id )
import PrelNames
import GHC.Exts ( unsafeCoerce# )
import GHC.Exts
#ifdef GHCI
data BkptHandler a = BkptHandler {
......
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