[project @ 2005-02-02 13:28:29 by simonpj]

Tidy output

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
-    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}