getCompilerOptions handles package-db options.

2013-09-20 17:15:41 +09:00
parent 46245fb694
commit 5f0fcd0442
8 changed files with 76 additions and 62 deletions
--- a/test/DebugSpec.hs
+++ b/test/DebugSpec.hs
@@ -7,9 +7,8 @@ import Dir

 checkFast :: String -> String -> IO ()
 checkFast file ans = withDirectory_ "test/data" $ do
-    (strVer,_) <- getGHCVersion
-    cradle <- findCradle
-    res <- debugInfo defaultOptions cradle strVer file
+    let cradle = Cradle "." Nothing Nothing []
+    res <- debugInfo defaultOptions cradle file
    lines res `shouldContain` [ans]

 spec :: Spec