Weird GCC arguments being generated on Windows for includeDirs (cabal 2.4.1.0). #6080
Comments
|
ghc on Windows expects things like mysql to come from mingw32, not Windows native. If you get past this, you'll have link errors because your mysql wants a native CRT, not the mingw32 one that it will be supplied. And this problem is because in mingw-think, a path beginning with "C:\" is a relative pathname (it uses Unix-style paths, not Windows native). |
|
@geekosaur well, all other paths which were not provided by me use windows style path. Also, if I remove that one flag and manually run the reported command then gcc can build this with no problem. What I'm trying to say is that this looks like problem with generating the flags, and also I don't see mysql or mariadb dev package in msys. Mysql_config script does return unix style path (which I've converted to win style) but problem is still the same, it appeares separately and than it is once more tacked onto this other path for some reason. |
This is not entirely correct, GHC expects a native Windows library yes, but both
I suspect you mean @reygoch you say you get the same issue when you just hardcode the path no? What happens when you have I'm rather suspicious about the |
|
@Mistuke I'm @reygoch, accidentally switched accounts here. If I set Why do something else with it? This seems like a bug to me the more I look at it. This works fine if we assume we are only working with relative paths within the project, like it is the case with It seems like cabal is copying those include folders into Here is also my output when I set |
|
Ahh right, so it seems cabal is expecting a relative path not an absolute one.. That does indeed seem like a bug. Does the same happen if you have an absolute path set in a cabal file? |
So, I'm trying to get
mysqlpackage to build on windows and I'm nearly done, but I'm getting some weird behavior from Cabal.It generates some unexpected GCC parameters:
Basically, in the
includeDirsfield for myBuildInfoI've added this (hardcoded for testing purposes):["\"C:\\Program Files\\MySQL\\MySQL Server 8.0\\include\""]In the generated
gcccommand I get the following expected flag:But I also get this flag which has
C:\Program Files\MySQL\MySQL Server 8.0\includetacked on to the end for some reason:If I remove this flag and manually execute
gcccommand the program is built, but I can't figure out why this flag is generated and how to remove it.Here is the full code of my current
Setup.hs, mysql paths are set inmysqlBuildInfofunction:{-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE CPP #-} {-# LANGUAGE OverloadedStrings #-} {- OPTIONS_GHC -Wall #-} #ifndef MIN_VERSION_Cabal #define MIN_VERSION_Cabal(x,y,z) 0 #endif import Control.Monad (liftM, msum, sequence) import Data.Text ( Text, pack, unpack, splitOn, replace) import qualified Data.Text as Text import Data.List (isPrefixOf, nub) import Distribution.PackageDescription import Distribution.Simple import Distribution.Simple.LocalBuildInfo import Distribution.Simple.Program import Distribution.Verbosity -- A Cabal 1.16 vs 1.18 compatibility hack, as in 1.18 -- findProgramLocation has a new (unused in this case) parameter. -- ConstOrId adds this parameter when types say it is mandatory. class ConstOrId a b where constOrId :: a -> b instance ConstOrId a a where constOrId = id instance ConstOrId a (b -> a) where constOrId = const main :: IO () main = defaultMainWithHooks simpleUserHooks { hookedPrograms = [mysqlConfigProgram] , confHook = \pkg flags -> do lbi <- confHook simpleUserHooks pkg flags bi <- mysqlBuildInfo lbi return lbi { localPkgDescr = updatePackageDescription (Just bi, []) (localPkgDescr lbi) } } #if defined (mingw32_HOST_OS) mysqlConfigProgram = simpleProgram "perl" #else mysqlConfigProgram = (simpleProgram "mysql_config") { programFindLocation = \verbosity -> constOrId $ liftM msum $ sequence #if MIN_VERSION_Cabal(1,24,0) [ (findProgramOnSearchPath verbosity [ProgramSearchPathDefault] "mysql_config") , (findProgramOnSearchPath verbosity [ProgramSearchPathDefault] "mysql_config5") , (findProgramOnSearchPath verbosity [ProgramSearchPathDefault] "mariadb_config") ] #else [ (findProgramLocation verbosity "mysql_config") , (findProgramLocation verbosity "mysql_config5") , (findProgramLocation verbosity "mariadb_config") ] #endif } #endif mysqlBuildInfo :: LocalBuildInfo -> IO BuildInfo mysqlBuildInfo lbi = do #if MIN_VERSION_Cabal(2,0,0) let mysqlConfig = wordfix . getDbProgramOutput normal mysqlConfigProgram (withPrograms lbi) #else let mysqlConfig = wordfix . rawSystemProgramStdoutConf normal mysqlConfigProgram (withPrograms lbi) #endif #if defined (mingw32_HOST_OS) let cfg = mysqlConfig . (\args -> ["-S", "mysql_config.pl"] <> args ) #else let cfg = mysqlConfig #endif include <- cfg ["--include"] libs <- cfg ["--libs"] libsR <- cfg ["--libs_r"] #if defined ( mingw32_HOST_OS) -- let include = ["-I\"C:\\Program Files\\MySQL\\MySQL Server 8.0\\include\""] -- let libs = ["-L\"C:\\Program Files\\MySQL\\MySQL Server 8.0\\lib\\\"","ws2_32","crypt32","Secur32"] -- let libsR = ["-L\"C:\\Program Files\\MySQL\\MySQL Server 8.0\\lib\\\"","ws2_32","crypt32","Secur32"] #endif return emptyBuildInfo { extraLibDirs = map (drop 2) . filter ("-L" `isPrefixOf`) $ libs , extraLibs = map (drop 2) . filter ("-l" `isPrefixOf`) . filter (/= "-lmygcc") $ filter (/= "-lmysqlclient_r") $ nub (libs ++ libsR) , includeDirs = map (drop 2) include } #if defined (mingw32_HOST_OS) where wordfix = fmap $ fmap fixword . filter (/="-lLIBMYSQL_OS_OUTPUT_NAME-NOTFOUND") . fmap unpack . splitOn "\" \"" . pack . reverse . dropWhile (=='"') . reverse . dropWhile (=='"') . takeWhile (/='\n') #else where wordfix = fmap words #endif fixword :: String -> String fixword path = unpack $ if lori txt then fixupPath txt else txt where txt = pack path lori :: Text -> Bool lori txt = ( "-L/c/" `Text.isPrefixOf` txt ) || ( "-I/c/" `Text.isPrefixOf` txt ) fixupPath :: Text -> Text fixupPath pth = pfx <> pth' where pfx = Text.take 2 pth pth' = "\"C:\\" <> (replace "/" "\\" $ Text.drop 5 pth) <> "\""The text was updated successfully, but these errors were encountered: