diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-07-02 20:52:51 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-07-25 00:45:08 -0400 |
| commit | 342a01af624840ba94f22256079ff4f3cee09ca2 (patch) | |
| tree | 7b6ed819b10bd6bd08992d5fdca5ea94504ccb3d /compiler/GHC/Iface/Load.hs | |
| parent | 15b2b44fe35292dc3ac93ec215c44fba42165f67 (diff) | |
| download | haskell-342a01af624840ba94f22256079ff4f3cee09ca2.tar.gz | |
Add GHC.Platform.Profile
Diffstat (limited to 'compiler/GHC/Iface/Load.hs')
| -rw-r--r-- | compiler/GHC/Iface/Load.hs | 3 |
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 |