aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorAlan Zimmerman <alan.zimm@gmail.com>2017-12-21 22:31:06 +0200
committerDaniel Gröber <dxld@darkboxed.org>2018-01-18 14:10:26 +0100
commit4cb20eebfcc8b5d9aff91af9b8bd171d9281229d (patch)
treeb425ac289c8cab1bc0cdc09e359ce944402e9967 /tests
parenta2908a6f31ea480b2236ff62d76157b2f01ed5b7 (diff)
WIP on addressing review issues
Still need clarity on best way of adding the local package db when it is needed and exists.
Diffstat (limited to 'tests')
-rw-r--r--tests/GhcSession.hs6
1 files changed, 2 insertions, 4 deletions
diff --git a/tests/GhcSession.hs b/tests/GhcSession.hs
index 0896780..12b9b6f 100644
--- a/tests/GhcSession.hs
+++ b/tests/GhcSession.hs
@@ -31,8 +31,7 @@ main = do
args <- getArgs
topdir <- getCurrentDirectory
res <- mapM (setup topdir test) $ case args of
- [] -> [
- ("tests/exelib" , parseVer "1.10")
+ [] -> [ ("tests/exelib" , parseVer "1.10")
, ("tests/exeintlib", parseVer "2.0")
, ("tests/fliblib" , parseVer "2.0")
, ("tests/bkpregex" , parseVer "2.0")
@@ -102,9 +101,8 @@ test dir = do
let opts' = if exists
then ("-package-db " ++ packageDir) : "-Werror" : opts
else "-Werror" : opts
-
-- let opts' = "-Werror" : opts
- -- let opts' = "-v 3" : "-Werror" : opts
+
let sopts = intercalate " " $ map formatArg $ "\nghc" : opts'
putStrLn $ "\n" ++ show cn ++ ": " ++ sopts
hFlush stdout