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

debug also displays sys lib dir.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-04-09 15:15:26 +09:00
parent 3bd0c3dafb
commit 770644e87d
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -33,6 +33,7 @@ debug opt cradle fileName = do
return simpleCompilerOption return simpleCompilerOption
void $ initializeFlagsWithCradle opt cradle gopts True void $ initializeFlagsWithCradle opt cradle gopts True
setTargetFiles [fileName] setTargetFiles [fileName]
mglibdir <- liftIO $ getSystemLibDir
return [ return [
"Root directory: " ++ rootDir "Root directory: " ++ rootDir
, "Current directory: " ++ currentDir , "Current directory: " ++ currentDir
@ -40,6 +41,7 @@ debug opt cradle fileName = do
, "GHC options: " ++ unwords gopts , "GHC options: " ++ unwords gopts
, "Include directories: " ++ unwords incDir , "Include directories: " ++ unwords incDir
, "Dependent packages: " ++ intercalate ", " (map fst pkgs) , "Dependent packages: " ++ intercalate ", " (map fst pkgs)
, "System libraries: " ++ fromMaybe "" mglibdir
] ]
where where
currentDir = cradleCurrentDir cradle currentDir = cradleCurrentDir cradle