Commit 94a113df authored by Michal Terepeta's avatar Michal Terepeta

Fix whitespace/layout in RnNames.

parent 819dbcb5
......@@ -41,7 +41,7 @@ import Data.List ( partition, (\\), delete )
import qualified Data.Set as Set
import System.IO
import Control.Monad
import Data.Map (Map)
import Data.Map ( Map )
import qualified Data.Map as Map
\end{code}
......@@ -49,7 +49,7 @@ import qualified Data.Map as Map
%************************************************************************
%* *
rnImports
\subsection{rnImports}
%* *
%************************************************************************
......@@ -167,7 +167,6 @@ rnImportDecl this_mod implicit_prelude
Just another_name -> another_name
imp_spec = ImpDeclSpec { is_mod = imp_mod_name, is_qual = qual_only,
is_dloc = loc, is_as = qual_mod_name }
-- in
-- Get the total exports from this module
total_avails <- ifaceExportNames filtered_exports
......@@ -248,7 +247,7 @@ warnRedundantSourceImport mod_name
%************************************************************************
%* *
importsFromLocalDecls
\subsection{importsFromLocalDecls}
%* *
%************************************************************************
......@@ -300,10 +299,10 @@ top level binders specially in two ways
extendGlobalRdrEnvRn :: [AvailInfo]
-> MiniFixityEnv
-> RnM (TcGblEnv, TcLclEnv)
-- Updates both the GlobalRdrEnv and the FixityEnv
-- We return a new TcLclEnv only because we might have to
-- delete some bindings from it;
-- see Note [Top-level Names in Template Haskell decl quotes]
-- Updates both the GlobalRdrEnv and the FixityEnv
-- We return a new TcLclEnv only because we might have to
-- delete some bindings from it;
-- see Note [Top-level Names in Template Haskell decl quotes]
extendGlobalRdrEnvRn avails new_fixities
= do { (gbl_env, lcl_env) <- getEnvs
......@@ -678,7 +677,7 @@ catMaybeErr ms = [ a | Succeeded a <- ms ]
%************************************************************************
%* *
Import/Export Utils
\subsection{Import/Export Utils}
%* *
%************************************************************************
......@@ -784,10 +783,10 @@ addAvail :: AvailEnv -> AvailInfo -> AvailEnv
addAvail avails avail = extendNameEnv_C plusAvail avails (availName avail) avail
mkAvailEnv :: [AvailInfo] -> AvailEnv
-- 'avails' may have several items with the same availName
-- E.g import Ix( Ix(..), index )
-- will give Ix(Ix,index,range) and Ix(index)
-- We want to combine these; addAvail does that
-- 'avails' may have several items with the same availName
-- E.g import Ix( Ix(..), index )
-- will give Ix(Ix,index,range) and Ix(index)
-- We want to combine these; addAvail does that
mkAvailEnv avails = foldl addAvail emptyAvailEnv avails
-- After combining the avails, we need to ensure that the parent name is the
......@@ -1077,7 +1076,7 @@ check_occs ie occs names
%*********************************************************
%* *
Deprecations
\subsection{Deprecations}
%* *
%*********************************************************
......@@ -1168,7 +1167,7 @@ this is, after all, wired-in stuff.
%*********************************************************
%* *
Unused names
\subsection{Unused names}
%* *
%*********************************************************
......@@ -1218,7 +1217,7 @@ reportUnusedNames _export_decls gbl_env
%*********************************************************
%* *
Unused imports
\subsection{Unused imports}
%* *
%*********************************************************
......@@ -1261,15 +1260,15 @@ findImportUsage :: [LImportDecl Name]
-> [ImportDeclUsage]
type ImportMap = Map SrcLoc [AvailInfo]
-- The intermediate data struture records, for each import
-- declaration, what stuff brought into scope by that
-- declaration is actually used in the module.
--
-- The SrcLoc is the location of the start
-- of a particular 'import' declaration
--
-- The AvailInfos are the things imported from that decl
-- (just a list, not normalised)
-- The intermediate data struture records, for each import
-- declaration, what stuff brought into scope by that
-- declaration is actually used in the module.
--
-- The SrcLoc is the location of the start
-- of a particular 'import' declaration
--
-- The AvailInfos are the things imported from that decl
-- (just a list, not normalised)
findImportUsage imports rdr_env rdrs
= map unused_decl imports
......
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