tweak script used to build candidate ghcide in benchmarks

The goal is to convince Cabal to apply the ghc options only to the ghcide binary
and not to all the dependencies, which causes massive rebuilds and leads to
benchmarks timeouts

Author: pepeiborra

ghcide/bench/hist/Main.hs

@@ -56,6 +56,7 @@ import System.Console.GetOpt
 import Data.Maybe
 import Control.Monad.Extra
 import System.FilePath
+import System.Directory as IO
 
 
 configPath :: FilePath
@@ -138,20 +139,31 @@ type instance RuleResult GetSamples = Natural
 
 --------------------------------------------------------------------------------
 
-buildGhcide :: BuildSystem -> [CmdOption] -> FilePath -> Action ()
-buildGhcide Cabal args out = do
-    command_ args "cabal"
+buildGhcide
+    :: BuildSystem
+    -> FilePath  -- ^ working directory
+    -> FilePath  -- ^ output folder
+    -> Action ()
+buildGhcide Cabal cwd out = do
+    let cabalLocal = cwd </> "cabal.project.local"
+    previousValue <- liftIO $ do
+        itExisted <- IO.doesFileExist cabalLocal
+        if itExisted then Just <$> readFile cabalLocal else pure Nothing
+    liftIO $ writeFile cabalLocal $ unlines
+      [ "package ghcide"
+      , "  ghc-options: -eventlog -rtsopts"]
+    command_ [Cwd cwd] "cabal"
         ["install"
         ,"exe:ghcide"
         ,"--installdir=" ++ out
         ,"--install-method=copy"
         ,"--overwrite-policy=always"
-        ,"--ghc-options=-rtsopts"
-        ,"--ghc-options=-eventlog"
         ]
+    liftIO $ removeFile cabalLocal
+    liftIO $ whenJust previousValue $ writeFile cabalLocal
 
-buildGhcide Stack args out =
-    command_ args "stack"
+buildGhcide Stack cwd out =
+    command_ [Cwd cwd] "stack"
         ["--local-bin-path=" <> out
         ,"build"
         ,"ghcide:ghcide"

shake-bench/src/Development/Benchmark/Rules.hs

@@ -181,7 +181,7 @@ data MkBuildRules buildSystem = MkBuildRules
   , projectDepends     :: Action ()
     -- | Build the project found in the cwd and save the build artifacts in the output folder
   , buildProject       :: buildSystem
-                       -> [CmdOption]
+                       -> FilePath
                        -> OutputFolder
                        -> Action ()
   }
@@ -209,7 +209,7 @@ buildRules build MkBuildRules{..} = do
       projectDepends
       liftIO $ createDirectoryIfMissing True $ dropFileName out
       buildSystem <- askOracle $ GetBuildSystem ()
-      buildProject buildSystem [Cwd "."] (takeDirectory out)
+      buildProject buildSystem "." (takeDirectory out)
       ghcLoc <- liftIO $ findGhc buildSystem "."
       writeFile' ghcpath ghcLoc
 
@@ -224,7 +224,7 @@ buildRules build MkBuildRules{..} = do
       buildSystem <- askOracle $ GetBuildSystem ()
       flip actionFinally (cmd_ ("git worktree remove bench-temp-" <> ver <> " --force" :: String)) $ do
         ghcLoc <- liftIO $ findGhc buildSystem ver
-        buildProject buildSystem [Cwd $ "bench-temp-" <> ver] (".." </> takeDirectory out)
+        buildProject buildSystem ("bench-temp-" <> ver) (".." </> takeDirectory out)
         writeFile' ghcPath ghcLoc
 
 --------------------------------------------------------------------------------