From 4cb20eebfcc8b5d9aff91af9b8bd171d9281229d Mon Sep 17 00:00:00 2001
From: Alan Zimmerman <alan.zimm@gmail.com>
Date: Thu, 21 Dec 2017 22:31:06 +0200
Subject: WIP on addressing review issues

Still need clarity on best way of adding the local package db when it is needed
and exists.
---
 tests/GhcSession.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'tests/GhcSession.hs')

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
-- 
cgit v1.2.3