diff options
| author | alexwl <alexey.a.kiryushin@gmail.com> | 2018-11-12 22:57:19 +0300 |
|---|---|---|
| committer | alexwl <alexey.a.kiryushin@gmail.com> | 2018-11-12 22:57:19 +0300 |
| commit | 67d0714dc3a9fc863140014d62efc573878df2d2 (patch) | |
| tree | 7191495ad02b071576b90eb9f458f18cbc1c3969 | |
| parent | d4827af4220c934739e4ee3b26caab32e591d8ed (diff) | |
Remove -Werror flag
-Werror flag makes warnings fatal. This flag should never be set.
| -rw-r--r-- | src/HaskellCodeExplorer/PackageInfo.hs | 9 |
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 |