module Main (main)
where

import Test.DocTest (doctest)
import System.FilePath.Find ((==?), always, extension, find)

find_sources :: IO [FilePath]
find_sources = find always (extension ==? ".hs") "src/"

main :: IO ()
main = do
  sources <- find_sources
  doctest $ ["-isrc", "-idist/build/haeredes/autogen" ] ++ sources
