projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
459db29
)
[project @ 2005-02-02 13:28:29 by simonpj]
author
simonpj
<unknown>
Wed, 2 Feb 2005 13:28:29 +0000
(13:28 +0000)
committer
simonpj
<unknown>
Wed, 2 Feb 2005 13:28:29 +0000
(13:28 +0000)
Tidy output
ghc/compiler/compMan/CompManager.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/compMan/CompManager.lhs
b/ghc/compiler/compMan/CompManager.lhs
index
b31eeb1
..
334d89d
100644
(file)
--- a/
ghc/compiler/compMan/CompManager.lhs
+++ b/
ghc/compiler/compMan/CompManager.lhs
@@
-1346,10
+1346,10
@@
cyclicModuleErr ms
= hang (ptext SLIT("Module imports form a cycle for modules:"))
2 (vcat (map show_one ms))
where
= hang (ptext SLIT("Module imports form a cycle for modules:"))
2 (vcat (map show_one ms))
where
- show_one ms = vcat [show_mod (ms_hsc_src ms) (ms_mod ms),
- ptext SLIT("Imports:") <+>
- (pp_imps HsBootFile (ms_srcimps ms)
- $$ pp_imps HsSrcFile (ms_imps ms))]
+ show_one ms = sep [ show_mod (ms_hsc_src ms) (ms_mod ms),
+ nest 2 $ ptext SLIT("imports:") <+>
+ (pp_imps HsBootFile (ms_srcimps ms)
+ $$ pp_imps HsSrcFile (ms_imps ms))]
show_mod hsc_src mod = ppr mod <> text (hscSourceString hsc_src)
pp_imps src mods = fsep (map (show_mod src) mods)
\end{code}
show_mod hsc_src mod = ppr mod <> text (hscSourceString hsc_src)
pp_imps src mods = fsep (map (show_mod src) mods)
\end{code}