where
import Test.DocTest
+import System.FilePath.Find ((==?), always, extension, find)
+
+find_sources :: IO [FilePath]
+find_sources = find always (extension ==? ".hs") "src/"
main :: IO ()
-main = doctest ["--optghc=-isrc",
- "src/Roots/Simple.hs",
- "src/Roots/Fast.hs"]
+main = do
+ sources <- find_sources
+ doctest $ ["-isrc"] ++ sources