diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-12-15 15:31:03 +0000 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-01-10 20:43:10 +0000 |
| commit | ccd8c6f00d6a4ebb2f11383aaff1d444a66131b4 (patch) | |
| tree | 472d82d355cb40159525b4cf3efdf37536375bd9 | |
| parent | 9e3088fd58056398db86d15eb90e01a506b54b8d (diff) | |
| download | haskell-ccd8c6f00d6a4ebb2f11383aaff1d444a66131b4.tar.gz | |
Handle -boot files properly when doing -dynamic-too
| -rw-r--r-- | compiler/main/HscMain.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/main/HscMain.hs b/compiler/main/HscMain.hs index 2a838168dd..3562f27d5c 100644 --- a/compiler/main/HscMain.hs +++ b/compiler/main/HscMain.hs @@ -1250,8 +1250,9 @@ hscWriteIface iface no_change mod_summary = do -- TODO: We should do a no_change check for the dynamic -- interface file too let dynIfaceFile = replaceExtension ifaceFile (dynHiSuf dflags) + dynIfaceFile' = addBootSuffix_maybe (mi_boot iface) dynIfaceFile dynDflags = doDynamicToo dflags - writeIfaceFile dynDflags dynIfaceFile iface + writeIfaceFile dynDflags dynIfaceFile' iface -- | Compile to hard-code. hscGenHardCode :: CgGuts -> ModSummary |