Catch cabal configure failure properly

2014-08-18 08:06:36 +02:00
parent 6fec1de4b3
commit 271ff4e162
11 changed files with 90 additions and 30 deletions
--- a/test/CabalApiSpec.hs
+++ b/test/CabalApiSpec.hs
@@ -34,7 +34,7 @@ spec = do
            withDirectory "test/data/subdir1/subdir2" $ \dir -> do
                cradle <- findCradle
                pkgDesc <- runD $ parseCabalFile $ fromJust $ cradleCabalFile cradle
-                res <- getCompilerOptions [] cradle pkgDesc
+                res <- runD $ getCompilerOptions [] cradle pkgDesc
                let res' = res {
                        ghcOptions  = ghcOptions res
                      , includeDirs = map (toRelativeDir dir) (includeDirs res)