@@ -21,7 +21,8 @@ import Distribution.Helper (Package, projectPackages, pUnits,
2121 unChModuleName , Ex (.. ), ProjLoc (.. ),
2222 QueryEnv , mkQueryEnv , runQuery ,
2323 Unit , unitInfo , uiComponents ,
24- ChEntrypoint (.. ), UnitInfo (.. ))
24+ ChEntrypoint (.. ), UnitInfo (.. ),
25+ qePrograms , ghcProgram )
2526import Distribution.Helper.Discover (findProjects , getDefaultDistDir )
2627import Ide.Logger
2728import HIE.Bios as Bios
@@ -470,6 +471,7 @@ cabalHelperCradle file = do
470471 , componentRoot = cwd
471472 , componentDependencies = []
472473 }
474+ , runGhcCmd = \ args -> Bios. readProcessWithCwd cwd " ghc" args " "
473475 }
474476 }
475477 Just (Ex proj) -> do
@@ -497,6 +499,7 @@ cabalHelperCradle file = do
497499 , cradleOptsProg =
498500 CradleAction { actionName = Bios. Other (projectNoneType proj)
499501 , runCradle = \ _ _ -> return CradleNone
502+ , runGhcCmd = \ _ -> pure CradleNone
500503 }
501504 }
502505 Just realPackage -> do
@@ -517,6 +520,9 @@ cabalHelperCradle file = do
517520 realPackage
518521 normalisedPackageLocation
519522 fp
523+ , runGhcCmd = \ args -> do
524+ let programs = qePrograms env
525+ Bios. readProcessWithCwd normalisedPackageLocation (ghcProgram programs) args " "
520526 }
521527 }
522528
@@ -558,6 +564,7 @@ cabalHelperAction proj env package root fp = do
558564 Left err -> return
559565 $ CradleFail
560566 $ CradleError
567+ []
561568 (ExitFailure 2 )
562569 err
563570
0 commit comments