From 67d0714dc3a9fc863140014d62efc573878df2d2 Mon Sep 17 00:00:00 2001 From: alexwl 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(-) (limited to 'src/HaskellCodeExplorer') 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