Don't use fromJust

2014-11-03 00:30:53 +01:00
parent 56cc237e26
commit 506cf18885
2 changed files with 6 additions and 4 deletions
--- a/test/CabalApiSpec.hs
+++ b/test/CabalApiSpec.hs
@@ -35,7 +35,8 @@ spec = do
            cwd <- getCurrentDirectory
            withDirectory "test/data/subdir1/subdir2" $ \dir -> do
                crdl <- findCradle
-                pkgDesc <- runD $ parseCabalFile crdl $ fromJust $ cradleCabalFile crdl
+                let cabalFile = cradleCabalFile crdl
+                pkgDesc <- runD $ parseCabalFile crdl cabalFile
                res <- runD $ getCompilerOptions [] crdl pkgDesc
                let res' = res {
                        ghcOptions  = ghcOptions res