blob: 11fe2231d73e67c4fa9093e5b27c2081a4c37def (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
--- a/Setup.lhs
+++ b/Setup.lhs
@@ -35,7 +35,7 @@ mysqlConfigProgram = (simpleProgram "mysql_config") {
mysqlBuildInfo :: LocalBuildInfo -> IO BuildInfo
mysqlBuildInfo lbi = do
- let mysqlConfig = rawSystemProgramStdoutConf verbosity mysqlConfigProgram (withPrograms lbi)
+ let mysqlConfig = getDbProgramOutput verbosity mysqlConfigProgram (withPrograms lbi)
ws = " \n\r\t"
includeDirs <- return . map (drop 2) . split ws =<< mysqlConfig ["--include"]
|