Remove -Werror flag

-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

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