mirror of
https://github.com/github/semantic.git
synced 2024-11-28 01:47:01 +03:00
31 lines
514 B
Haskell
31 lines
514 B
Haskell
|
module Main
|
||
|
|
( main
|
||
|
|
) where
|
||
|
|
|
||
|
|
import System.Environment
|
||
|
|
import Test.DocTest
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main = getArgs >>= run
|
||
|
|
|
||
|
|
run :: [String] -> IO ()
|
||
|
|
run args = doctest (map ("-X" ++) extensions ++ args ++ ["-isrc"] ++ sources)
|
||
|
|
|
||
|
|
extensions :: [String]
|
||
|
|
extensions =
|
||
|
|
[ "DeriveFoldable"
|
||
|
|
, "DeriveFunctor"
|
||
|
|
, "DeriveGeneric"
|
||
|
|
, "DeriveTraversable"
|
||
|
|
, "FlexibleContexts"
|
||
|
|
, "FlexibleInstances"
|
||
|
|
, "OverloadedStrings"
|
||
|
|
, "RecordWildCards"
|
||
|
|
, "StrictData"
|
||
|
|
]
|
||
|
|
|
||
|
|
sources :: [String]
|
||
|
|
sources =
|
||
|
|
[ "src/Data/Semiring.hs"
|
||
|
|
]
|