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/mailbox-count/autogen" ] ++ sources