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

setting current dir to root dir.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-04-03 16:18:35 +09:00
parent 89c733aef8
commit 63fdd28025
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/GHCModi.hs
View File

@ -41,6 +41,7 @@ import qualified GHC as G
import HscTypes (SourceError) import HscTypes (SourceError)
import Language.Haskell.GhcMod import Language.Haskell.GhcMod
import Language.Haskell.GhcMod.Internal import Language.Haskell.GhcMod.Internal
import System.Directory (setCurrentDirectory)
import System.IO (hFlush,stdout) import System.IO (hFlush,stdout)
---------------------------------------------------------------- ----------------------------------------------------------------
@ -55,7 +56,10 @@ type Logger = IO [String]
main :: IO () main :: IO ()
main = E.handle handler $ do main = E.handle handler $ do
cradle <- findCradle cradle0 <- findCradle
let rootdir = cradleRootDir cradle0
cradle = cradle0 { cradleCurrentDir = rootdir }
setCurrentDirectory rootdir
mvar <- liftIO newEmptyMVar mvar <- liftIO newEmptyMVar
mlibdir <- getSystemLibDir mlibdir <- getSystemLibDir
void $ forkIO $ setupDB cradle mlibdir opt mvar void $ forkIO $ setupDB cradle mlibdir opt mvar