1
1
mirror of https://github.com/github/semantic.git synced 2024-12-25 07:55:12 +03:00

Allow the arguments to override src.

This commit is contained in:
Rob Rix 2018-03-19 09:40:19 -04:00
parent 3f47dfbdc0
commit f67a2a1dc3

View File

@ -8,7 +8,7 @@ import Test.DocTest
main :: IO ()
main = do
args <- getArgs
doctest (map ("-X" ++) extensions ++ args ++ ["-isrc", "src"])
doctest (map ("-X" ++) extensions ++ args ++ "-isrc" : if null args then ["src"] else args)
extensions :: [String]
extensions =