1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{-# LANGUAGE OverloadedStrings #-}
module Main where
import Build_doctests (flags, pkgs, module_sources)
import Test.DocTest (doctest)
import System.Process
main :: IO ()
main = do
gobjectIntrospectionLibs <- pkgConfigLibs "gobject-introspection-1.0"
-- traverse_ putStrLn args -- optionally print arguments
doctest (gobjectIntrospectionLibs ++ args)
where
args = flags ++ pkgs ++ module_sources
pkgConfigLibs :: String -> IO [String]
pkgConfigLibs pkg = words <$> readProcess "pkg-config" ["--libs", pkg] ""
|
