From: Ian Lynagh <igloo@earth.li>
Date: Wed, 30 May 2007 14:46:33 +0000 (+0000)
Subject: Make package.conf files a bit more readable
X-Git-Tag: 2007-06-12~20
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=ad9d754d2b18d4dd027884e082c20777a29ef7d4

Make package.conf files a bit more readable
---

diff --git a/utils/ghc-pkg/Main.hs b/utils/ghc-pkg/Main.hs
index b180fb7..4b37684 100644
--- a/utils/ghc-pkg/Main.hs
+++ b/utils/ghc-pkg/Main.hs
@@ -641,7 +641,9 @@ writeNewConfig filename packages = do
       if isPermissionError e
       then die (filename ++ ": you don't have permission to modify this file")
       else ioError e
-  hPutStrLn h (show packages)
+  let shown = concat $ intersperse ",\n " $ map show packages
+      fileContents = "[" ++ shown ++ "\n]"
+  hPutStrLn h fileContents
   hClose h
   hPutStrLn stdout "done."