Use 'compiler/ghc.cabal.in' to determine workdir, as 'boot' file is not present in src tar.gz

Also use the workdir for applyAnyPatch

Author: dfordivam

lib/GHCup/GHC.hs

@@ -868,23 +868,22 @@ compileGHC targetGhc crossTarget vps bstrap hghc jobs mbuildConfig patches aargs
         tmpDownload <- lift withGHCupTmpDir
         tmpUnpack <- lift mkGhcupTmpDir
         tar <- liftE $ download uri Nothing Nothing Nothing (fromGHCupPath tmpDownload) Nothing False
-        (bf, tver) <- liftE $ cleanUpOnError @'[UnknownArchive, ArchiveResult, ProcessError, PatchFailed, DownloadFailed, DigestError, ContentLengthError, GPGError] tmpUnpack $ do
+        (workdir, tver) <- liftE $ cleanUpOnError @'[UnknownArchive, ArchiveResult, ProcessError, PatchFailed, DownloadFailed, DigestError, ContentLengthError, GPGError] tmpUnpack $ do
           liftE $ unpackToDir (fromGHCupPath tmpUnpack) tar
 
-          liftE $ applyAnyPatch patches (fromGHCupPath tmpUnpack)
-
-          let regex = [s|^(.*/)*boot$|] :: B.ByteString
-          [bootFile] <- liftIO $ findFilesDeep
+          let regex = [s|^(.*/)*compiler/ghc.cabal.in$|] :: B.ByteString
+          (ghcCabalIn:_) <- liftIO $ findFilesDeep
             tmpUnpack
-            (makeRegexOpts compExtended
-                           execBlank
-                           regex
-            )
-          tver <- liftE $ catchAllE @_ @'[ProcessError, ParseError, NotFoundInPATH] @'[] (\_ -> pure Nothing) $ fmap Just $ getGHCVer
-            (appendGHCupPath tmpUnpack (takeDirectory bootFile))
-          pure (bootFile, tver)
+            (makeRegexOpts compExtended execBlank regex)
+
+          let workdir = appendGHCupPath tmpUnpack (takeDirectory (takeDirectory ghcCabalIn))
+
+          lift $ logDebug $ "GHC compile workdir: " <> T.pack (fromGHCupPath workdir)
+
+          liftE $ applyAnyPatch patches (fromGHCupPath workdir)
 
-        let workdir = appendGHCupPath tmpUnpack (takeDirectory bf)
+          tver <- liftE $ catchAllE @_ @'[ProcessError, ParseError, NotFoundInPATH] @'[] (\_ -> pure Nothing) $ fmap Just $ getGHCVer workdir
+          pure (workdir, tver)
 
         ov <- case vps of
                 Just vps' -> fmap Just $ expandVersionPattern tver "" "" "" "" vps'