aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authoralexwl <alexey.a.kiryushin@gmail.com>2018-11-12 22:57:19 +0300
committeralexwl <alexey.a.kiryushin@gmail.com>2018-11-12 22:57:19 +0300
commit67d0714dc3a9fc863140014d62efc573878df2d2 (patch)
tree7191495ad02b071576b90eb9f458f18cbc1c3969
parentd4827af4220c934739e4ee3b26caab32e591d8ed (diff)
Remove -Werror flag
-Werror flag makes warnings fatal. This flag should never be set.
-rw-r--r--src/HaskellCodeExplorer/PackageInfo.hs9
1 files 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