fromCabal -> fromCabalFile.

CabalApi.hs

@@ -1,7 +1,7 @@
 {-# LANGUAGE OverloadedStrings, RecordWildCards #-}
 
 module CabalApi (
-    fromCabal
+    fromCabalFile
   , cabalParseFile
   , cabalBuildInfo
   , cabalAllDependPackages
@@ -22,13 +22,13 @@ import Types
 
 ----------------------------------------------------------------
 
-fromCabal :: [GHCOption]
+fromCabalFile :: [GHCOption]
-           -> Cradle
+              -> Cradle
-           -> IO ([GHCOption]
+              -> IO ([GHCOption]
-                 ,[IncludeDir]
+                    ,[IncludeDir]
-                 ,[Package]
+                    ,[Package]
-                 ,[LangExt])
+                    ,[LangExt])
-fromCabal ghcOptions cradle = do
+fromCabalFile ghcOptions cradle = do
     cabal <- cabalParseFile cfile
     let binfo@BuildInfo{..} = cabalBuildInfo cabal
     let exts = map (("-X" ++) . display) $ usedExtensions binfo

GHCApi.hs

@@ -47,7 +47,7 @@ initializeGHC opt cradle fileName ghcOptions logging
   | cabal     =
       initSession opt ghcOptions importDirs Nothing Nothing logging fileName
   | otherwise = do
-      (gopts,idirs,depPkgs,hdrExts) <- liftIO $ fromCabal ghcOptions cradle
+      (gopts,idirs,depPkgs,hdrExts) <- liftIO $ fromCabalFile ghcOptions cradle
       initSession opt gopts idirs (Just depPkgs) (Just hdrExts) logging fileName
   where
     cabal = isJust $ cradleCabalFile cradle