aboutsummaryrefslogtreecommitdiff
path: root/html-test/run.hs
blob: 71d78f73cf8e772ab148877dc8f99ed5220fb903 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
#!/usr/bin/env runhaskell
{-# LANGUAGE CPP #-}


import System.Environment
import System.FilePath


baseDir, rootDir :: FilePath
baseDir = takeDirectory __FILE__
rootDir = baseDir </> ".."

srcDir, refDir, outDir :: FilePath
srcDir = baseDir </> "src"
refDir = baseDir </> "ref"
outDir = baseDir </> "out"


main :: IO ()
main = do
    files <- map processArg <$> getArgs
    putStrLn $ "Files to test: " ++ show files


processArg :: String -> FilePath
processArg arg
    | takeExtension arg `elem` [".hs", ".lhs"] = arg
    | otherwise = srcDir </> arg <.> "hs"