diff options
Diffstat (limited to 'compiler/GHC/Unit/Module/ModSummary.hs')
| -rw-r--r-- | compiler/GHC/Unit/Module/ModSummary.hs | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/compiler/GHC/Unit/Module/ModSummary.hs b/compiler/GHC/Unit/Module/ModSummary.hs index 9d6199f632..cb0e0760f4 100644 --- a/compiler/GHC/Unit/Module/ModSummary.hs +++ b/compiler/GHC/Unit/Module/ModSummary.hs @@ -5,7 +5,6 @@ -- (ModuleGraph) module GHC.Unit.Module.ModSummary ( ExtendedModSummary (..) - , PreprocessedFile(..) , extendModSummaryNoDeps , ModSummary (..) , ms_unitid @@ -97,8 +96,10 @@ data ModSummary ms_parsed_mod :: Maybe HsParsedModule, -- ^ The parsed, nonrenamed source, if we have it. This is also -- used to support "inline module syntax" in Backpack files. - ms_hspp_file :: PreprocessedFile, - -- ^ Filename of preprocessed source file + ms_hspp_file_loc :: RealSrcLoc, + -- ^ Filename of preprocessed source file with the location + -- The location doesn't always start at line 1, column 1, for + -- example for backpack ms_hspp_opts :: DynFlags, -- ^ Cached flags from @OPTIONS@, @INCLUDE@ and @LANGUAGE@ -- pragmas in the modules source code @@ -106,10 +107,6 @@ data ModSummary -- ^ The actual preprocessed source, if we have it } -data PreprocessedFile - = PreprocessedFile FilePath -- ^ This is a regular haskell file that has been preprocessed - | BackpackFile RealSrcLoc -- ^ There is no preprocessed source since we are instantiating a backpack signature at this location - ms_unitid :: ModSummary -> UnitId ms_unitid = toUnitId . moduleUnit . ms_mod |