aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authoralexwl <alexey.a.kiryushin@gmail.com>2019-01-17 13:36:16 +0300
committeralexwl <alexey.a.kiryushin@gmail.com>2019-01-17 13:36:16 +0300
commit2713b196d3af4e7d0bb42b9ba951ae3cb5cf5873 (patch)
tree2ca1f70cd9c45413cb5605a2110eb61f51b51a70 /src
parentcdd7494e6cd20741218b37185501bf5bf244761d (diff)
Add GHC command line options to the debug output
Diffstat (limited to 'src')
-rw-r--r--src/HaskellCodeExplorer/PackageInfo.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/HaskellCodeExplorer/PackageInfo.hs b/src/HaskellCodeExplorer/PackageInfo.hs
index 46b02c4..fc09915 100644
--- a/src/HaskellCodeExplorer/PackageInfo.hs
+++ b/src/HaskellCodeExplorer/PackageInfo.hs
@@ -438,12 +438,14 @@ indexBuildComponent sourceCodePreprocessing currentPackageId componentId deps@(f
runGhcT (Just libdir) $ do
logDebugN (T.append "Component id : " $ HCE.getComponentId componentId)
logDebugN (T.append "Modules : " $ T.pack $ show modules)
- logDebugN (T.append "GHC options : " $ T.pack $ show options)
+ logDebugN
+ (T.append "GHC command line options : " $
+ T.pack $ L.intercalate " " (options ++ modules))
flags <- getSessionDynFlags
(flags', _, _) <-
parseDynamicFlagsCmdLine
flags
- (L.map noLoc . L.filter ("-Werror" /=) $ options) -- -Werror flag makes warnings fatal
+ (L.map noLoc . L.filter ("-Werror" /=) $ options) -- -Werror flag makes warnings fatal
(flags'', _) <- liftIO $ initPackages flags'
logFn <- askLoggerIO
let logAction ::