diff --git a/src/Stack/Package.hs b/src/Stack/Package.hs index f4f15da911..68a258252d 100644 --- a/src/Stack/Package.hs +++ b/src/Stack/Package.hs @@ -941,7 +941,9 @@ resolveFilesAndDeps component dirs names0 exts = do (S.toList unlistedModules)] warnMissing _missingModules = do return [] - {- FIXME: the issue with this is it's noisy for modules like Paths_* + -- TODO: bring this back - see + -- https://github.com/commercialhaskell/stack/issues/2649 + {- cabalfp <- asks fst return $ if null missingModules diff --git a/src/Stack/Types/Package.hs b/src/Stack/Types/Package.hs index 89f2701ba6..686e464570 100644 --- a/src/Stack/Types/Package.hs +++ b/src/Stack/Types/Package.hs @@ -163,8 +163,14 @@ instance Show GetPackageFiles where data PackageWarning = UnlistedModulesWarning (Path Abs File) (Maybe String) [ModuleName] -- ^ Modules found that are not listed in cabal file + + -- TODO: bring this back - see + -- https://github.com/commercialhaskell/stack/issues/2649 + {- | MissingModulesWarning (Path Abs File) (Maybe String) [ModuleName] -- ^ Modules not found in file system, which are listed in cabal file + -} + instance Show PackageWarning where show (UnlistedModulesWarning cabalfp component [unlistedModule]) = concat @@ -184,6 +190,7 @@ instance Show PackageWarning where Just c -> " for '" ++ c ++ "'" , " component (add to other-modules):\n " , intercalate "\n " (map display unlistedModules)] + {- show (MissingModulesWarning cabalfp component [missingModule]) = concat [ "module listed in " @@ -202,6 +209,7 @@ instance Show PackageWarning where Just c -> " for '" ++ c ++ "'" , " component not found in filesystem:\n " , intercalate "\n " (map display missingModules)] + -} -- | Package build configuration