diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2017-12-21 22:31:06 +0200 |
|---|---|---|
| committer | Daniel Gröber <dxld@darkboxed.org> | 2018-01-18 14:10:26 +0100 |
| commit | 4cb20eebfcc8b5d9aff91af9b8bd171d9281229d (patch) | |
| tree | b425ac289c8cab1bc0cdc09e359ce944402e9967 /tests | |
| parent | a2908a6f31ea480b2236ff62d76157b2f01ed5b7 (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.hs | 6 |
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 |