@@ -53,6 +53,7 @@ import GHC hiding (def)
5353import qualified GHC.Paths
5454
5555import HIE.Bios
56+import HIE.Bios.Types
5657
5758-- Set the GHC libdir to the nix libdir if it's present.
5859getLibdir :: IO FilePath
@@ -181,7 +182,8 @@ showEvent lock e = withLock lock $ print e
181182
182183cradleToSession :: Cradle a -> IO HscEnvEq
183184cradleToSession cradle = do
184− cradleRes <- getCompilerOptions "" cradle
185+ let showLine s = putStrLn ("> " ++ s)
186+ cradleRes <- runCradle (cradleOptsProg cradle) showLine ""
185187 opts <- case cradleRes of
186188 CradleSuccess r -> pure r
187189 CradleFail err -> throwIO err