fusion-0.1.0: test/doctest.hs

module Main where

import Test.DocTest
import System.Directory
import System.FilePath
import Control.Applicative
import Control.Monad
import Data.List

main :: IO ()
main = getSources >>= \sources -> doctest $
    "-idist/build/autogen"
  : "-optP-include"
  : "-optPdist/build/autogen/cabal_macros.h"
  : sources

getSources :: IO [FilePath]
getSources =
    filter (\n -> ".hs" `isSuffixOf` n) <$> pure ["Fusion.hs"]
--   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