diff --git a/CabalApi.hs b/CabalApi.hs
index b5d13df..3bd6a33 100644
--- a/CabalApi.hs
+++ b/CabalApi.hs
@@ -45,7 +45,7 @@ fromCabalFile ghcOptions cradle = do
   where
     owdir = cradleCurrentDir cradle
     Just cdir = cradleCabalDir cradle
-    Just cfile = cradleCabalDir cradle
+    Just cfile = cradleCabalFile cradle
 
 removeMe :: FilePath -> [String] -> [String]
 removeMe cabalfile = filter (/= me)