Commit a5bab468 authored by ian@well-typed.com's avatar ian@well-typed.com

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
parent abde6c5f
......@@ -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, _)
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment