Tweak to pretty printing for UsageFile

13607ad8 · Simon Marlow · 62a34c72 · 13607ad8
Commit 13607ad8 authored Nov 18, 2011 by Simon Marlow
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

compiler/iface/LoadIface.lhs compiler/iface/LoadIface.lhs +2 -1

No files found.
--- a/compiler/iface/LoadIface.lhs
+++ b/compiler/iface/LoadIface.lhs
@@ -709,7 +709,8 @@ pprUsage usage@UsageHomeModule{}
        vcat [ ppr n <+> ppr v | (n,v) <- usg_entities usage ]
        )
 pprUsage usage@UsageFile{}
-  = hsep [ptext (sLit "addDependentFile"), ppr (usg_file_path usage)]
+  = hsep [ptext (sLit "addDependentFile"),
+          doubleQuotes (text (usg_file_path usage))]

 pprUsageImport :: Outputable a => Usage -> (Usage -> a) -> SDoc
 pprUsageImport usage usg_mod'