X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FHscTypes.lhs;h=45687561b7f73c0f59b7d09e309ff175f339da3a;hb=7f4b8d9bfbfb0556d51ba1fb25f18e424bd5bf9c;hp=962c7a3fd5e89db5d3b950795b05c461d385a5fd;hpb=9f68c34843602e815e71ef68f43adc01da993672;p=ghc-hetmet.git

diff --git a/compiler/main/HscTypes.lhs b/compiler/main/HscTypes.lhs
index 962c7a3..4568756 100644
--- a/compiler/main/HscTypes.lhs
+++ b/compiler/main/HscTypes.lhs
@@ -164,7 +164,6 @@ import Data.Array       ( Array, array )
 import Data.List
 import Control.Monad    ( mplus, guard, liftM, when )
 import Exception
-import Control.Concurrent.MVar ( MVar )
 \end{code}
 
 
@@ -545,9 +544,6 @@ data HscEnv
 		-- reflect sucking in interface files.  They cache the state of
 		-- external interface files, in effect.
 
-        hsc_NC_lock :: !(MVar ()),
-                -- ^ A lock used for updating the name cache.
-
 	hsc_FC   :: {-# UNPACK #-} !(IORef FinderCache),
 	        -- ^ The cached result of performing finding in the file system
 	hsc_MLC  :: {-# UNPACK #-} !(IORef ModLocationCache),
@@ -1990,7 +1986,6 @@ on just the OccName easily in a Core pass.
 
 \begin{code}
 -- | Vectorisation information for 'ModGuts', 'ModDetails' and 'ExternalPackageState'.
--- All of this information is always tidy, even in ModGuts.
 data VectInfo      
   = VectInfo {
       vectInfoVar     :: VarEnv  (Var    , Var  ),   -- ^ @(f, f_v)@ keyed on @f@