diff options
author | Zubin Duggal <zubin.duggal@gmail.com> | 2023-05-04 06:07:40 +0530 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2023-05-16 14:00:00 -0400 |
commit | 6231a126562db917c882fdc5ecd0769081032d90 (patch) | |
tree | 9454e3e45dde97975238911a3874b177cb9d814c /compiler/GHC/Iface/Load.hs | |
parent | b70bc6900fcee7ff1e334bf8099283f610d6f9d4 (diff) | |
download | haskell-6231a126562db917c882fdc5ecd0769081032d90.tar.gz |
compiler: Use compact representation for UsageFile (#22744)
Use FastString to store filepaths in interface files, as this data is
highly redundant so we want to share all instances of filepaths in the
compiler session.
Diffstat (limited to 'compiler/GHC/Iface/Load.hs')
-rw-r--r-- | compiler/GHC/Iface/Load.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Iface/Load.hs b/compiler/GHC/Iface/Load.hs index 16f4b900b5..f5628e8fb6 100644 --- a/compiler/GHC/Iface/Load.hs +++ b/compiler/GHC/Iface/Load.hs @@ -1175,7 +1175,7 @@ pprUsage usage@UsageHomeModule{} ) pprUsage usage@UsageFile{} = hsep [text "addDependentFile", - doubleQuotes (text (usg_file_path usage)), + doubleQuotes (ftext (usg_file_path usage)), ppr (usg_file_hash usage)] pprUsage usage@UsageMergedRequirement{} = hsep [text "merged", ppr (usg_mod usage), ppr (usg_mod_hash usage)] |