mirror of
https://github.com/github/semantic.git
synced 2024-12-18 04:11:48 +03:00
37 lines
729 B
Haskell
37 lines
729 B
Haskell
module Main
|
|
( main
|
|
) where
|
|
|
|
import System.Environment
|
|
import Test.DocTest
|
|
|
|
defaultFiles =
|
|
[ "src/Data/Abstract/Address.hs"
|
|
, "src/Data/Abstract/Environment.hs"
|
|
, "src/Data/Abstract/Name.hs"
|
|
, "src/Data/Range.hs"
|
|
, "src/Data/Semigroup/App.hs"
|
|
]
|
|
|
|
main :: IO ()
|
|
main = do
|
|
args <- getArgs
|
|
doctest (map ("-X" ++) extensions ++ "-isrc" : "--fast" : if null args then defaultFiles else args)
|
|
|
|
extensions :: [String]
|
|
extensions =
|
|
[ "DataKinds"
|
|
, "DeriveFoldable"
|
|
, "DeriveFunctor"
|
|
, "DeriveGeneric"
|
|
, "DeriveTraversable"
|
|
, "FlexibleContexts"
|
|
, "FlexibleInstances"
|
|
, "MultiParamTypeClasses"
|
|
, "OverloadedStrings"
|
|
, "RecordWildCards"
|
|
, "StandaloneDeriving"
|
|
, "StrictData"
|
|
, "TypeApplications"
|
|
]
|