From f4eaa144a42d26f70fe8452916131c33b0c56f8f Mon Sep 17 00:00:00 2001 From: simonpj Date: Wed, 2 Feb 2005 13:28:29 +0000 Subject: [PATCH] [project @ 2005-02-02 13:28:29 by simonpj] Tidy output --- ghc/compiler/compMan/CompManager.lhs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/ghc/compiler/compMan/CompManager.lhs b/ghc/compiler/compMan/CompManager.lhs index b31eeb1..334d89d 100644 --- 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 - 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} -- 1.7.10.4