git.iko.soy/streamly
on f2b2aa4 help sign in
streamly/doctests.hs
28 lines 748 B history raw
1module Main where
3import Build_doctests (flags, pkgs, module_sources)
4import Data.Foldable (traverse_)
5import System.Environment.Compat (getArgs, unsetEnv)
6import Test.DocTest (doctest)
8import qualified Data.List as List
10main :: IO ()
11main = do
12 cliArgs <- getArgs
13 let (cliArgs1, mods) =
14 if (List.null (filter (== "--modules") cliArgs))
15 then (cliArgs, module_sources)
16 else (List.delete "--modules" cliArgs, [])
17 let args =
18 [ "-outputdir=./_doctests/"
19 , "-fobject-code"
20 , "--fast"
21 ]
22 ++ cliArgs1
23 ++ flags
24 ++ pkgs
25 ++ mods
26 traverse_ putStrLn args
27 unsetEnv "GHC_ENVIRONMENT"
28 doctest args