Commit c2e301ae authored by Ben Gamari's avatar Ben Gamari 🐢 Committed by Marge Bot
Browse files

compiler: Qualify imports of Data.List

parent 7d452be4
......@@ -55,7 +55,7 @@ import qualified Data.ByteString as BS
import Control.Monad.ST
import Data.Bits
import Data.Char
import Data.List
import Data.List (intersperse)
import Data.Map (Map)
import Data.Word
import System.IO
......
......@@ -113,7 +113,7 @@ import ExtractDocs
import Control.Monad
import Data.Function
import Data.List
import Data.List (find, findIndex, mapAccumL, sortBy, sort)
import qualified Data.Map as Map
import qualified Data.Set as Set
import Data.Ord
......
......@@ -54,7 +54,7 @@ import Util
import qualified GHC.LanguageExtensions as LangExt
import Panic
import Data.List
import Data.List ( partition )
import System.Exit
import Control.Monad
import System.FilePath
......
......@@ -146,7 +146,7 @@ import UniqDSet
import FastString
import Binary
import Util
import Data.List
import Data.List (sortBy, sort)
import Data.Ord
import GHC.PackageDb (BinaryStringRep(..), DbUnitIdModuleRep(..), DbModule(..), DbUnitId(..))
import Fingerprint
......
......@@ -38,7 +38,7 @@ import FieldLabel
import qualified Data.Data as Data
import Data.Function
import Data.List
import Data.List (find)
{-
************************************************************************
......
......@@ -98,7 +98,7 @@ import FastString
import Control.DeepSeq
import Data.Bits
import Data.Data
import Data.List
import Data.List (sortBy, intercalate)
import Data.Ord
{-
......
......@@ -55,7 +55,7 @@ import Data.Array.Unsafe( castSTUArray )
import Foreign
import Data.Char ( ord )
import Data.List
import Data.List ( genericLength )
import Data.Map (Map)
import Data.Maybe (fromMaybe)
import qualified Data.Map as Map
......
......@@ -40,7 +40,7 @@ import DynFlags
import Exception
import Control.Monad
import Data.List
import Data.List ( (\\) )
import Data.Maybe
import Data.IORef
......
......@@ -57,7 +57,7 @@ import Control.Monad
import Data.Char (isSpace)
import Data.IORef
import Data.List
import Data.List (intercalate, isPrefixOf, isSuffixOf, nub, partition)
import Data.Maybe
import Control.Concurrent.MVar
......
......@@ -62,7 +62,7 @@ import GHC.Runtime.Layout ( roundUpTo )
import Control.Monad
import Data.Maybe
import Data.List
import Data.List ((\\))
#if defined(INTEGER_GMP)
import GHC.Exts
import Data.Array.Base
......
......@@ -165,7 +165,7 @@ import Stream (Stream)
import Util
import Data.List
import Data.List ( nub, isPrefixOf, partition )
import Control.Monad
import Data.IORef
import System.FilePath as FilePath
......
......@@ -60,7 +60,7 @@ import GhcMonad
import DriverPhases
import Module ( ModuleName, Module(moduleName))
import Fingerprint
import Data.List
import Data.List (sort)
import Outputable (Outputable(..), text, (<+>))
--Qualified import so we can define a Semigroup instance
......
......@@ -80,7 +80,7 @@ import Outputable
import GHC.Cmm.Ppr () -- For Outputable instances
import qualified DynFlags as D
import Data.List
import Data.List (sort, nub, partition)
import Data.STRef.Strict
import Control.Monad.ST
......
......@@ -31,7 +31,7 @@ import GhcPrelude
import Outputable
import Unique
import RegClass
import Data.List
import Data.List (intersect)
-- | An identifier for a primitive real machine register.
type RegNo
......
......@@ -71,7 +71,7 @@ import NameEnv
import SrcLoc
import Data.Bifunctor ( bimap )
import ErrUtils (dumpAction)
import Data.List
import Data.List (intersperse, groupBy, sortBy)
import Data.Ord
import Data.Dynamic
import Data.IORef
......
......@@ -69,7 +69,7 @@ import Unique
import UniqSet
import Outputable
import Data.List
import Data.List (mapAccumL)
import FastString
#include "HsVersions.h"
......
......@@ -69,7 +69,7 @@ import Outputable
import Util
import UniqFM ( pprUniqFM )
import Data.List
import Data.List (mapAccumL)
{-
************************************************************************
......
......@@ -23,7 +23,7 @@ import CoreSeq ( seqBinds )
import Outputable
import VarEnv
import BasicTypes
import Data.List
import Data.List ( mapAccumL, sortBy )
import DataCon
import Id
import CoreUtils ( exprIsHNF, exprType, exprIsTrivial, exprOkForSpeculation )
......
......@@ -72,7 +72,7 @@ import qualified GHC.LanguageExtensions as LangExt
import Control.Monad
import Control.Monad.Trans.Class
import Control.Monad.Trans.Reader
import Data.List
import Data.List (partition, find)
{-
************************************************************************
......
......@@ -50,7 +50,7 @@ import VarSet
import Control.Monad
import Control.Monad.Trans.Class (lift)
import Control.Monad.Trans.Reader (ask)
import Data.List
import Data.List (sortBy)
import Data.Maybe
----------------------
......
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