@@ -1,11 +1,18 @@
11module Main where
22
33import Test.DocTest
4+import System.Environment (getEnvironment)
45
56main :: IO ()
6−main = doctest [
7− "-idist/build/autogen/"
8− , "-optP-include"
9− , "-optPdist/build/autogen/cabal_macros.h"
10− , "Network/Wai/Handler/Warp.hs"
11− ]
7+main = do
8+ env <- getEnvironment
9+ let dist =
10+ case lookup "HASKELL_DIST_DIR" env of
11+ Nothing -> "dist"
12+ Just x -> x
13+ doctest
14+ [ concat ["-i", dist, "/build/autogen/"]
15+ , "-optP-include"
16+ , concat ["-optP", dist, "/build/autogen/cabal_macros.h"]
17+ , "Network/Wai/Handler/Warp.hs"
18+ ]