Supporting sandbox sharing.

Braking backword compatibility of findCradle.
2013-09-20 15:48:50 +09:00
parent d58c11bcc3
commit 49791fb6ea
8 changed files with 74 additions and 122 deletions
--- a/test/DebugSpec.hs
+++ b/test/DebugSpec.hs
@@ -8,7 +8,7 @@ import Dir
 checkFast :: String -> String -> IO ()
 checkFast file ans = withDirectory_ "test/data" $ do
    (strVer,_) <- getGHCVersion
-    cradle <- findCradle Nothing strVer
+    cradle <- findCradle
    res <- debugInfo defaultOptions cradle strVer file
    lines res `shouldContain` [ans]