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