mirror of
https://github.com/github/semantic.git
synced 2024-12-01 09:15:01 +03:00
13 lines
336 B
Haskell
13 lines
336 B
Haskell
module Main
|
|
( main
|
|
) where
|
|
|
|
import System.Environment
|
|
import Test.DocTest
|
|
|
|
main :: IO ()
|
|
main = do
|
|
args <- getArgs
|
|
autogen <- fmap (<> "/build/doctest/autogen") <$> lookupEnv "HASKELL_DIST_DIR"
|
|
doctest (maybe id ((:) . ("-i" <>)) autogen ("-isemantic-source/src" : "--fast" : if null args then ["semantic-source/src"] else args))
|