diff --git a/src/HIE/Bios/Environment.hs b/src/HIE/Bios/Environment.hs index fd51b24d4..c94a246ef 100644 --- a/src/HIE/Bios/Environment.hs +++ b/src/HIE/Bios/Environment.hs @@ -38,7 +38,7 @@ initSession ComponentOptions {..} = do let opts_hash = B.unpack $ encode $ H.finalize $ H.updates H.init (map B.pack componentOptions) cache_dir <- liftIO $ getCacheDir opts_hash -- Add the user specified options to a fresh GHC session. - (df', targets) <- addCmdOpts "" componentOptions df + (df', targets) <- addCmdOpts componentRoot componentOptions df void $ G.setSessionDynFlags (disableOptimisation -- Compile with -O0 as we are not going to produce object files. $ setIgnoreInterfacePragmas -- Ignore any non-essential information in interface files such as unfoldings changing.