diff options
| author | davve <davve@dtek.chalmers.se> | 2006-12-28 13:22:24 +0000 |
|---|---|---|
| committer | davve <davve@dtek.chalmers.se> | 2006-12-28 13:22:24 +0000 |
| commit | 480f09d1ce43853eb3849edd7503ecee60fe036e (patch) | |
| tree | b6f3727391c9de73a0c123bb75dea659dfe7f335 /src/Main.hs | |
| parent | 313f9e69c9981a0200e333b3dc573dc9e681c0ad (diff) | |
Update to build with latest GHC HEAD
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Main.hs b/src/Main.hs index 94ea575b..3cf46375 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -440,8 +440,8 @@ type FullyCheckedMod = (ParsedSource, printEntity (DocEntity doc) = show doc printEntity (DeclEntity name) = show $ ppr name defaultUserStyle --- | This data structure collects all the information we need from the GHC API --- about a home package module +-- | This data structure collects all the information we need about a home +-- package module data ModuleDataGHC = ModuleDataGHC { ghcModule :: Module, ghcFilename :: FilePath, @@ -994,7 +994,8 @@ buildGlobalDocEnv modules n (nameSetMod n modName) env keep_new env n = Map.insert n (nameSetMod n modName) env -nameSetMod n newMod = mkExternalName (nameUnique n) newMod (nameOccName n) Nothing (nameSrcLoc n) +nameSetMod n newMod = mkExternalName (nameUnique n) newMod (nameOccName n) + (nameSrcLoc n) -- ----------------------------------------------------------------------------- -- Named documentation @@ -1094,7 +1095,6 @@ sortImage f xs = map snd $ sortBy cmp_fst [(f x, x) | x <- xs] funTyConName = mkWiredInName gHC_PRIM (mkOccNameFS tcName FSLIT("(->)")) funTyConKey - Nothing -- No parent object (ATyCon funTyCon) -- Relevant TyCon BuiltInSyntax |