From 2713b196d3af4e7d0bb42b9ba951ae3cb5cf5873 Mon Sep 17 00:00:00 2001
From: alexwl <alexey.a.kiryushin@gmail.com>
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(-)

(limited to 'src')

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