alexwl/haskell-code-explorer
1
1
Fork 0
mirror of https://github.com/alexwl/haskell-code-explorer.git synced 2024-11-23 00:37:44 +03:00
Code Issues Projects Releases Wiki Activity

Remove -Werror flag

Browse Source 
-Werror flag makes warnings fatal. This flag should never be set.
This commit is contained in:
alexwl 2018-11-12 22:57:19 +03:00
parent d4827af422
commit 67d0714dc3
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/HaskellCodeExplorer/PackageInfo.hs
View File

@ -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