mirror of
https://github.com/ilyakooo0/streamly.git
synced 2024-08-15 11:20:22 +03:00
* Also, use --fast by default * Add documentation for running doctests in the test README
29 lines
748 B
Haskell
29 lines
748 B
Haskell
module Main where
|
|
|
|
import Build_doctests (flags, pkgs, module_sources)
|
|
import Data.Foldable (traverse_)
|
|
import System.Environment.Compat (getArgs, unsetEnv)
|
|
import Test.DocTest (doctest)
|
|
|
|
import qualified Data.List as List
|
|
|
|
main :: IO ()
|
|
main = do
|
|
cliArgs <- getArgs
|
|
let (cliArgs1, mods) =
|
|
if (List.null (filter (== "--modules") cliArgs))
|
|
then (cliArgs, module_sources)
|
|
else (List.delete "--modules" cliArgs, [])
|
|
let args =
|
|
[ "-outputdir=./_doctests/"
|
|
, "-fobject-code"
|
|
, "--fast"
|
|
]
|
|
++ cliArgs1
|
|
++ flags
|
|
++ pkgs
|
|
++ mods
|
|
traverse_ putStrLn args
|
|
unsetEnv "GHC_ENVIRONMENT"
|
|
doctest args
|