watcher-0.0.1: tests/doctests.hs

-- Adapted from Edward Kmett's doctests test:
-- «https://github.com/ekmett/lens/blob/master/tests/doctests.hsc»
-- Many thanks to Edward Kmett.
module Main where

import Build_doctests (deps)
import Control.Applicative
import Control.Monad
import Data.List
import System.Directory
import System.FilePath
import Test.DocTest

main :: IO ()
main = getSources >>= \sources -> doctest $
	  "-XOverloadedStrings"
	: "-isrc"
	: "-idist/build/autogen"
	: "-optP-include"
	: "-optPdist/build/autogen/cabal_macros.h"
	: "-hide-all-packages"
	: map ("-package="++) deps ++ sources

getSources :: IO [FilePath]
getSources = filter (isSuffixOf ".hs") <$> go "src"
	where
		go dir = do
			(dirs, files) <- getFilesAndDirectories dir
			(files ++) . concat <$> mapM go dirs

getFilesAndDirectories :: FilePath -> IO ([FilePath], [FilePath])
getFilesAndDirectories dir = do
	c <- map (dir </>) . filter (`notElem` ["..", "."]) <$> getDirectoryContents dir
	(,) <$> filterM doesDirectoryExist c <*> filterM doesFileExist c