diff options
| author | alexwl <alexey.a.kiryushin@gmail.com> | 2019-01-17 13:36:16 +0300 |
|---|---|---|
| committer | alexwl <alexey.a.kiryushin@gmail.com> | 2019-01-17 13:36:16 +0300 |
| commit | 2713b196d3af4e7d0bb42b9ba951ae3cb5cf5873 (patch) | |
| tree | 2ca1f70cd9c45413cb5605a2110eb61f51b51a70 | |
| parent | cdd7494e6cd20741218b37185501bf5bf244761d (diff) | |
Add GHC command line options to the debug output
| -rw-r--r-- | src/HaskellCodeExplorer/PackageInfo.hs | 6 |
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 :: |