diff options
| -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, _) |