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

"debug" displyas a root dir.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-03-19 15:01:32 +09:00
parent b40f162979
commit 31ce0999a1
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Language/Haskell/GhcMod/Debug.hs
View File

@ -35,7 +35,8 @@ debug opt cradle fileName = do
void $ initializeFlagsWithCradle opt cradle gopts True void $ initializeFlagsWithCradle opt cradle gopts True
setTargetFiles [fileName] setTargetFiles [fileName]
return [ return [
"Current directory: " ++ currentDir "Root directory: " ++ rootDir
, "Current directory: " ++ currentDir
, "Cabal file: " ++ cabalFile , "Cabal file: " ++ cabalFile
, "GHC options: " ++ unwords gopts , "GHC options: " ++ unwords gopts
, "Include directories: " ++ unwords incDir , "Include directories: " ++ unwords incDir
@ -44,6 +45,8 @@ debug opt cradle fileName = do
where where
currentDir = cradleCurrentDir cradle currentDir = cradleCurrentDir cradle
mCabalFile = cradleCabalFile cradle mCabalFile = cradleCabalFile cradle
mCabalDir = cradleCabalDir cradle
rootDir = fromMaybe currentDir mCabalDir
cabal = isJust mCabalFile cabal = isJust mCabalFile
cabalFile = fromMaybe "" mCabalFile cabalFile = fromMaybe "" mCabalFile
origGopts = ghcOpts opt origGopts = ghcOpts opt