summaryrefslogtreecommitdiff
path: root/compiler/GHC/Iface/Load.hs
diff options
context:
space:
mode:
authorSylvain Henry <sylvain@haskus.fr>2020-07-02 20:52:51 +0200
committerMarge Bot <ben+marge-bot@smart-cactus.org>2020-07-25 00:45:08 -0400
commit342a01af624840ba94f22256079ff4f3cee09ca2 (patch)
tree7b6ed819b10bd6bd08992d5fdca5ea94504ccb3d /compiler/GHC/Iface/Load.hs
parent15b2b44fe35292dc3ac93ec215c44fba42165f67 (diff)
downloadhaskell-342a01af624840ba94f22256079ff4f3cee09ca2.tar.gz
Add GHC.Platform.Profile
Diffstat (limited to 'compiler/GHC/Iface/Load.hs')
-rw-r--r--compiler/GHC/Iface/Load.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/GHC/Iface/Load.hs b/compiler/GHC/Iface/Load.hs
index fa148dc954..119a0e23c4 100644
--- a/compiler/GHC/Iface/Load.hs
+++ b/compiler/GHC/Iface/Load.hs
@@ -984,7 +984,8 @@ writeIface :: DynFlags -> FilePath -> ModIface -> IO ()
writeIface dflags hi_file_path new_iface
= do createDirectoryIfMissing True (takeDirectory hi_file_path)
let printer = TraceBinIFace (debugTraceMsg dflags 3)
- writeBinIface dflags printer hi_file_path new_iface
+ profile = targetProfile dflags
+ writeBinIface profile printer hi_file_path new_iface
-- @readIface@ tries just the one file.
readIface :: Module -> FilePath