22124b13cc5cd7d57c7c055420e5be07e9b04f59
[haeredes.git] / test / Doctests.hs
1 module Main (main)
2 where
3
4 import Test.DocTest (doctest)
5 import System.FilePath.Find ((==?), always, extension, find)
6
7 find_sources :: IO [FilePath]
8 find_sources = find always (extension ==? ".hs") "src/"
9
10 main :: IO ()
11 main = do
12 sources <- find_sources
13 doctest $ ["-isrc", "-idist/build/autogen"] ++ sources