execute doctests also on examples

This commit is contained in:
Marco Perone 2023-02-27 17:03:48 +01:00 committed by Marco Perone
parent 2484a7ad30
commit 1dcce3a673

View File

@ -1,8 +1,15 @@
module Main where
import "base" System.Environment (getArgs)
import "doctest-parallel" Test.DocTest (mainFromCabal)
import "doctest-parallel" Test.DocTest
import "doctest-parallel" Test.DocTest.Helpers
main :: IO ()
main = do
mainFromCabal "crem" =<< getArgs
args <- getArgs
cremPackage <- findCabalPackage "crem"
cremLib <- extractCabalLibrary cremPackage
cremExamplesLib <- extractSpecificCabalLibrary (Just "crem-examples") cremPackage
let
wholeCremLib = mergeLibraries [cremLib, cremExamplesLib]
mainFromLibrary wholeCremLib args