From: simonpj <unknown>
Date: Wed, 2 Feb 2005 13:28:29 +0000 (+0000)
Subject: [project @ 2005-02-02 13:28:29 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~1121
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f4eaa144a42d26f70fe8452916131c33b0c56f8f;p=ghc-hetmet.git

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