Attempt to fix build with GHC 9.2 & 9.12

Author: Shimuuar

Setup.hs

@@ -1,35 +1,42 @@
+{-# LANGUAGE CPP                 #-}
+{-# LANGUAGE DataKinds           #-}
+{-# LANGUAGE ImportQualifiedPost #-}
 {-# LANGUAGE OverloadedRecordDot #-}
 {-# LANGUAGE OverloadedStrings   #-}
+{-# LANGUAGE PackageImports      #-} -- Required for GHC9.2
 import Data.Either
 
-import Distribution.Simple
-import Distribution.Simple.Setup
-import Distribution.Simple.LocalBuildInfo
-import Distribution.PackageDescription
-import Distribution.Types.BuildInfo
-import Distribution.Types.PackageDescription
-import Distribution.Types.CondTree
-import Distribution.Types.ForeignLib
-import Distribution.Types.UnqualComponentName
-import Distribution.Utils.Path
-import System.Process
+import Distribution.Simple                (confHook, defaultMainWithHooks, simpleUserHooks)
+import Distribution.Simple.Setup          (ConfigFlags(..))
+import Distribution.Simple.LocalBuildInfo (LocalBuildInfo)
+import "Cabal-syntax" Distribution.PackageDescription
+import "Cabal-syntax" Distribution.Types.BuildInfo
+import "Cabal-syntax" Distribution.Types.PackageDescription
+import "Cabal-syntax" Distribution.Types.CondTree
+import "Cabal-syntax" Distribution.Types.ForeignLib
+import "Cabal-syntax" Distribution.Types.UnqualComponentName
+import "Cabal-syntax" Distribution.Utils.Path
+import "Cabal-syntax" Distribution.Compat.Lens
+import "Cabal-syntax" Distribution.Types.BuildInfo.Lens qualified as L
+
 import Data.List (intercalate, nub)
+import System.Process
 
-import Distribution.Compat.Lens
-import qualified Distribution.Types.BuildInfo.Lens as L
 
 main :: IO ()
 main = defaultMainWithHooks $ simpleUserHooks
   { confHook = patchedConfHook }
 
+
+
 patchedConfHook
   :: (GenericPackageDescription, HookedBuildInfo)
   -> ConfigFlags
   -> IO LocalBuildInfo
 patchedConfHook (gpd, hbi) flags
   | Just True <- lookupFlagAssignment ("python3-config") $ configConfigurationsFlags flags
   = do cflags_raw  <- readProcess "python3-config" ["--cflags"] ""
-       ldflags_raw <- readProcess "python3-config" ["--embed", "--ldflags"] ""  
+       ldflags_raw <- readProcess "python3-config" ["--embed", "--ldflags"] ""
        -- Split flags
        let (inc_dirs,cflags) = partitionEithers
              [ case flag of
@@ -46,10 +53,10 @@ patchedConfHook (gpd, hbi) flags
              ]
        let tweakLib lib = case lib.libName of
              LMainLibName -> lib & L.ccOptions    %~ (++ cflags)
-                                 & L.includeDirs  %~ (++ inc_dirs)
+                                 & L.includeDirs  %~ (++ (toSymb <$> inc_dirs))
                                  & L.ldOptions    %~ (++ ldflags)
                                  & L.extraLibs    %~ (++ libs)
-                                 & L.extraLibDirs %~ (++ lib_dirs)
+                                 & L.extraLibDirs %~ (++ (toSymb <$> lib_dirs))
              _            -> lib
        confHook simpleUserHooks
          ( gpd { condLibrary = (fmap . fmap) tweakLib (condLibrary  gpd) }
@@ -60,3 +67,14 @@ patchedConfHook (gpd, hbi) flags
 
 tokenizeArguments :: String -> [String]
 tokenizeArguments = words
+
+----------------------------------------------------------------
+-- Compatibility
+
+#if MIN_VERSION_Cabal_syntax(3,14,0)
+toSymb :: String -> SymbolicPathX 'AllowAbsolute from to
+toSymb = makeSymbolicPath
+#else
+toSymb :: String -> String
+toSymb = id
+#endif