diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-03-09 20:49:28 +0000 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-03-09 20:49:28 +0000 |
| commit | a5bab4680cf052ad2d84875f27b921501404ec0c (patch) | |
| tree | 1368b47f6787002646d7472115c0f0fc274b1489 /compiler/iface/LoadIface.lhs | |
| parent | abde6c5fb68f19ac55b6c62ca2eeb4ad47419931 (diff) | |
| download | haskell-a5bab4680cf052ad2d84875f27b921501404ec0c.tar.gz | |
Fix -dynamic-too with -boot files
It was looking for Foo.dyn_hi rather than Foo.dyn_hi-boot, and so
falling back to the slow way
Diffstat (limited to 'compiler/iface/LoadIface.lhs')
| -rw-r--r-- | compiler/iface/LoadIface.lhs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/iface/LoadIface.lhs b/compiler/iface/LoadIface.lhs index a81b01589e..0a52d66596 100644 --- a/compiler/iface/LoadIface.lhs +++ b/compiler/iface/LoadIface.lhs @@ -560,7 +560,8 @@ findAndReadIface doc_str mod hi_boot_file dflags <- getDynFlags whenGeneratingDynamicToo dflags $ withDoDynamicToo $ do let ref = canGenerateDynamicToo dflags - dynFilePath = replaceExtension filePath (dynHiSuf dflags) + dynFilePath = addBootSuffix_maybe hi_boot_file + $ replaceExtension filePath (dynHiSuf dflags) r <- read_file dynFilePath case r of Succeeded (dynIface, _) |