1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
|
module Main (main) where
import Prelude
import Data.Monoid ((<>))
import System.FilePath.Glob (glob)
import Test.DocTest (doctest)
main :: IO ()
main = glob "src/**/*.hs" >>= doDocTest
doDocTest :: [String] -> IO ()
doDocTest options = doctest $ options <> ghcExtensions
ghcExtensions :: [String]
ghcExtensions =
[
-- "-XConstraintKinds"
-- , "-XDataKinds"
"-XDeriveDataTypeable"
, "-XDeriveGeneric"
-- , "-XEmptyDataDecls"
, "-XFlexibleContexts"
-- , "-XFlexibleInstances"
-- , "-XGADTs"
-- , "-XGeneralizedNewtypeDeriving"
-- , "-XInstanceSigs"
-- , "-XMultiParamTypeClasses"
-- , "-XNoImplicitPrelude"
, "-XOverloadedStrings"
-- , "-XPolyKinds"
-- , "-XRankNTypes"
-- , "-XRecordWildCards"
, "-XScopedTypeVariables"
-- , "-XStandaloneDeriving"
-- , "-XTupleSections"
-- , "-XTypeFamilies"
-- , "-XTypeOperators"
]
|