From: simonmar Date: Tue, 30 Nov 2004 10:46:58 +0000 (+0000) Subject: [project @ 2004-11-30 10:46:58 by simonmar] X-Git-Tag: Initial_conversion_from_CVS_complete~1381 X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=092f1877146554146db997ed9d440037ec3dff4d;p=ghc-hetmet.git [project @ 2004-11-30 10:46:58 by simonmar] Add space to error message --- diff --git a/ghc/compiler/main/Packages.lhs b/ghc/compiler/main/Packages.lhs index d3a942b..8a317c0 100644 --- a/ghc/compiler/main/Packages.lhs +++ b/ghc/compiler/main/Packages.lhs @@ -382,7 +382,7 @@ overlappingError pkg overlaps multiplePackagesErr str ps = throwDyn (CmdLineError (showSDoc ( text "Error; multiple packages match" <+> - text str <> colon <> + text str <> colon <+> sep (punctuate comma (map (text.showPackageId.package) ps)) )))