test/Doctest.hs


1
2
3
4
5
6
7
8
9
10
11
12

module Main where

import           Build_doctests (flags, module_sources, pkgs)
import           Data.Foldable  (traverse_)
import           Test.DocTest   (doctest)

main :: IO ()
main = do
    traverse_ putStrLn args -- optionally print arguments
    doctest args
  where
    args = flags ++ pkgs ++ module_sources