[commit: ghc] master: Handle -boot files properly when doing -dynamic-too (ccd8c6f)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/ccd8c6f00d6a4ebb2f11383aaff1d444a66131b4

>---------------------------------------------------------------

commit ccd8c6f00d6a4ebb2f11383aaff1d444a66131b4
Author: Ian Lynagh <ian at well-typed.com>
Date:   Sat Dec 15 15:31:03 2012 +0000

    Handle -boot files properly when doing -dynamic-too

>---------------------------------------------------------------

 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 2a83816..3562f27 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