Commit ad9d754d authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Make package.conf files a bit more readable

parent df58c2a5
......@@ -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."
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment