1module Main where
2
3import Build_doctests (flags, pkgs, module_sources)
4import Data.Foldable (traverse_)
5import Data.List (isSuffixOf, isPrefixOf)
6import Test.DocTest (doctest)
7
8main :: IO ()
9main = do
10    traverse_ putStrLn args
11    doctest args
12  where
13    builddir = filter ("build" `isSuffixOf`) $ filter ("-i" `isPrefixOf`) flags
14    addinc path = "-I" ++ drop 2 path ++ "/include"
15    args = map addinc builddir ++ flags ++ pkgs ++ module_sources
16