From 0501137839761feea1da4cc8c86a9b1b7ff3ba58 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Mon, 4 Mar 2013 09:56:01 +0900
Subject: [PATCH] careless bug fix.

---
 CabalApi.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)