From 2713b196d3af4e7d0bb42b9ba951ae3cb5cf5873 Mon Sep 17 00:00:00 2001 From: alexwl Date: Thu, 17 Jan 2019 13:36:16 +0300 Subject: Add GHC command line options to the debug output --- src/HaskellCodeExplorer/PackageInfo.hs | 6 ++++-- 1 file 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 :: -- cgit v1.2.3