hasufell
/
ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fixing careless bug.

This commit is contained in:
Kazu Yamamoto 2013-03-04 10:40:33 +09:00
parent 2e440f9214
commit e64cd3b108
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
GHCApi.hs
View File

@ -44,11 +44,11 @@ importDirs = [".","..","../..","../../..","../../../..","../../../../.."]
initializeGHC :: Options -> Cradle -> FilePath -> [GHCOption] -> Bool -> Ghc LogReader
initializeGHC opt cradle fileName ghcOptions logging
| cabal =
initSession opt ghcOptions importDirs Nothing Nothing logging fileName
| otherwise = do
| cabal = do
(gopts,idirs,depPkgs,hdrExts) <- liftIO $ fromCabalFile ghcOptions cradle
initSession opt gopts idirs (Just depPkgs) (Just hdrExts) logging fileName
| otherwise =
initSession opt ghcOptions importDirs Nothing Nothing logging fileName
where
cabal = isJust $ cradleCabalFile cradle