forked from jgoerzen/missingpy
/
Setup.hs
40 lines (35 loc) · 1.24 KB
/
Setup.hs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
#!/usr/bin/env runhaskell
\begin{code}
import Distribution.PackageDescription
import Distribution.Simple
import Distribution.Simple.LocalBuildInfo
import Distribution.Simple.Program
import qualified Distribution.Verbosity as Verbosity
main = defaultMainWithHooks defaultUserHooks {
hookedPrograms = [pgConfigProgram],
postConf=configure
}
pgConfigProgram = (simpleProgram "pg_config") {
programFindVersion = findProgramVersion "--version" $ \str ->
-- Invoking "pg_config --version" gives a string like "PostgreSQL 8.0.13"
case words str of
(_:ver:_) -> ver
_ -> ""
}
configure _ _ _ lbi = do
mb_bi <- pgConfigBuildInfo Verbosity.normal lbi
writeHookedBuildInfo "HDBC-postgresql.buildinfo" (mb_bi,[])
\end{code}
Populate BuildInfo using pg_config tool.
\begin{code}
pgConfigBuildInfo verbosity lbi = do
(pgConfigProg, _) <- requireProgram verbosity pgConfigProgram
(orLaterVersion $ Version [8] []) (withPrograms lbi)
let pg_config = rawSystemProgramStdout verbosity pgConfigProg
libDir <- pg_config ["--libdir"]
incDir <- pg_config ["--includedir"]
return $ Just emptyBuildInfo {
extraLibDirs = lines libDir,
includeDirs = lines incDir
}
\end{code}