diff options
| author | simonmar <unknown> | 2005-03-31 10:16:46 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2005-03-31 10:16:46 +0000 |
| commit | 853e20a3eb86137cdb8accf69c6caa9db83a3d34 (patch) | |
| tree | 803e7b469d073d88fa7644dccbaeedbd986bd462 /ghc/compiler/rename | |
| parent | ca739e852566d7e0bfd594e6d7bf08da04f78d3c (diff) | |
| download | haskell-853e20a3eb86137cdb8accf69c6caa9db83a3d34.tar.gz | |
[project @ 2005-03-31 10:16:33 by simonmar]
Tweaks to get the GHC sources through Haddock. Doesn't quite work
yet, because Haddock complains about the recursive modules. Haddock
needs to understand SOURCE imports (it can probably just ignore them
as a first attempt).
Diffstat (limited to 'ghc/compiler/rename')
| -rw-r--r-- | ghc/compiler/rename/RnEnv.lhs | 2 | ||||
| -rw-r--r-- | ghc/compiler/rename/RnNames.lhs | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/ghc/compiler/rename/RnEnv.lhs b/ghc/compiler/rename/RnEnv.lhs index a5808844f3..fadf87a6d5 100644 --- a/ghc/compiler/rename/RnEnv.lhs +++ b/ghc/compiler/rename/RnEnv.lhs @@ -253,7 +253,7 @@ lookupGlobalOccRn rdr_name Nothing -> -- We allow qualified names on the command line to refer to - -- *any* name exported by any module in scope, just as if + -- *any* name exported by any module in scope, just as if -- there was an "import qualified M" declaration for every -- module. getModule `thenM` \ mod -> diff --git a/ghc/compiler/rename/RnNames.lhs b/ghc/compiler/rename/RnNames.lhs index 2b43899235..8a8cc321e7 100644 --- a/ghc/compiler/rename/RnNames.lhs +++ b/ghc/compiler/rename/RnNames.lhs @@ -355,7 +355,7 @@ getLocalDeclBinders mod (HsGroup {hs_valds = val_decls, mappM new_tc tycl_decls `thenM` \ tc_avails -> -- In a hs-boot file, the value binders come from the - -- *signatures*, and there should be no foreign binders + -- *signatures*, and there should be no foreign binders tcIsHsBoot `thenM` \ is_hs_boot -> let val_bndrs | is_hs_boot = sig_hs_bndrs | otherwise = for_hs_bndrs ++ val_hs_bndrs @@ -468,7 +468,7 @@ filterImports iface imp_spec (Just (want_hiding, import_items)) all_names get_item item@(IEThingAbs n) | want_hiding -- hiding( C ) -- Here the 'C' can be a data constructor - -- *or* a type/class, or even both + -- *or* a type/class, or even both = case concat [check_item item, check_item (IEVar data_n)] of [] -> bale_out item names -> succeed_with True names |