mirror of
https://github.com/github/semantic.git
synced 2024-12-22 22:31:36 +03:00
13 lines
304 B
Haskell
13 lines
304 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 ("-isrc" : "--fast" : if null args then ["src"] else args))
|