From 67d0714dc3a9fc863140014d62efc573878df2d2 Mon Sep 17 00:00:00 2001
From: alexwl <alexey.a.kiryushin@gmail.com>
Date: Mon, 12 Nov 2018 22:57:19 +0300
Subject: Remove -Werror flag

-Werror flag makes warnings fatal. This flag should never be set.
---
 src/HaskellCodeExplorer/PackageInfo.hs | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/src/HaskellCodeExplorer/PackageInfo.hs b/src/HaskellCodeExplorer/PackageInfo.hs
index f384a74..b48ea9b 100644
--- a/src/HaskellCodeExplorer/PackageInfo.hs
+++ b/src/HaskellCodeExplorer/PackageInfo.hs
@@ -413,7 +413,10 @@ indexBuildComponent sourceCodePreprocessing currentPackageId componentId deps@(f
       logDebugN (T.append "Modules : " $ T.pack $ show modules)
       logDebugN (T.append "GHC options : " $ T.pack $ show options)
       flags <- getSessionDynFlags
-      (flags', _, _) <- parseDynamicFlagsCmdLine flags (L.map noLoc options)
+      (flags', _, _) <-
+        parseDynamicFlagsCmdLine
+          flags
+          (L.map noLoc . L.filter ((/=) "-Werror") $ options) -- -Werror flag makes warnings fatal 
       (flags'', _) <- liftIO $ initPackages flags'
       logFn <- askLoggerIO
       let logAction ::
@@ -464,7 +467,7 @@ indexBuildComponent sourceCodePreprocessing currentPackageId componentId deps@(f
                  if c == '-'
                    then '_'
                    else c)
-              (T.unpack (HCE.name (currentPackageId :: HCE.PackageId)))      
+              (T.unpack (HCE.name (currentPackageId :: HCE.PackageId)))
       (modSumWithPath, modulesNotFound) <-
         (\(mods, notFound) ->
            ( L.reverse .
@@ -487,7 +490,7 @@ indexBuildComponent sourceCodePreprocessing currentPackageId componentId deps@(f
              (\modSum ->
                 pathsModuleName /=
                 (moduleNameString . moduleName $ ms_mod modSum))
-             topSortMods)      
+             topSortMods)
       unless (null modulesNotFound) $
         logErrorN $
         T.append
-- 
cgit v1.2.3