diff options
Diffstat (limited to 'src/HaskellCodeExplorer/PackageInfo.hs')
| -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 |