From e8f42af74bd8b718b44e310df570de86f5555ddc Mon Sep 17 00:00:00 2001 From: Nikolay Yakimov Date: Tue, 9 Aug 2016 14:27:51 +0300 Subject: [PATCH] Let doctests accept actual distdir from env --- test/doctests.hs | 26 +++++++++++++++----------- 1 file changed, 15 insertions(+), 11 deletions(-) diff --git a/test/doctests.hs b/test/doctests.hs index 6659d8c..97deb64 100644 --- a/test/doctests.hs +++ b/test/doctests.hs @@ -2,16 +2,20 @@ module Main where import Test.DocTest +import System.Environment +import Data.Maybe main :: IO () -main = doctest - [ "-package", "ghc-" ++ VERSION_ghc - , "-package", "transformers-" ++ VERSION_transformers - , "-package", "mtl-" ++ VERSION_mtl - , "-package", "directory-" ++ VERSION_directory - , "-XScopedTypeVariables", "-XRecordWildCards", "-XNamedFieldPuns", "-XConstraintKinds", "-XFlexibleContexts", "-XDataKinds", "-XKindSignatures", "-XTypeOperators", "-XViewPatterns" - , "-idist/build/autogen/" - , "-optP-include" - , "-optPdist/build/autogen/cabal_macros.h" - , "Language/Haskell/GhcMod.hs" - ] +main = do + distdir <- (fromMaybe "dist" . lookup "DOCTEST_DIST_DIR") `fmap` getEnvironment + doctest + [ "-package", "ghc-" ++ VERSION_ghc + , "-package", "transformers-" ++ VERSION_transformers + , "-package", "mtl-" ++ VERSION_mtl + , "-package", "directory-" ++ VERSION_directory + , "-XScopedTypeVariables", "-XRecordWildCards", "-XNamedFieldPuns", "-XConstraintKinds", "-XFlexibleContexts", "-XDataKinds", "-XKindSignatures", "-XTypeOperators", "-XViewPatterns" + , "-i" ++ distdir ++ "/build/autogen/" + , "-optP-include" + , "-optP" ++ distdir ++ "/build/autogen/cabal_macros.h" + , "Language/Haskell/GhcMod.hs" + ]