[project @ 1998-02-02 14:25:33 by simonm]
authorsimonm <unknown>
Mon, 2 Feb 1998 14:25:33 +0000 (14:25 +0000)
committersimonm <unknown>
Mon, 2 Feb 1998 14:25:33 +0000 (14:25 +0000)
Add -fwarn-unused-toplevel and -fwarn-unused-imports.

ghc/compiler/main/CmdLineOpts.lhs

index 6a8e9b4..9bc8766 100644 (file)
@@ -90,7 +90,11 @@ module CmdLineOpts (
        opt_Verbose,
        opt_WarnNameShadowing,
        opt_WarnUnusedNames,
-       opt_WarnIncompletePatterns, opt_WarnOverlappingPatterns, opt_WarnSimplePatterns,
+       opt_WarnUnusedTopLevel,
+       opt_WarnUnusedImports,
+       opt_WarnIncompletePatterns,
+       opt_WarnOverlappingPatterns,
+       opt_WarnSimplePatterns,
        opt_WarnMissingMethods,
        opt_WarnDuplicateExports,
        opt_PruneTyDecls, opt_PruneInstDecls,
@@ -337,6 +341,8 @@ opt_WarnIncompletePatterns  = lookUp  SLIT("-fwarn-incomplete-patterns")
 opt_WarnOverlappingPatterns    = lookUp  SLIT("-fwarn-overlapping-patterns")
 opt_WarnSimplePatterns         = lookUp  SLIT("-fwarn-simple-patterns")
 opt_WarnUnusedNames            = lookUp  SLIT("-fwarn-unused-names")
+opt_WarnUnusedTopLevel         = lookUp  SLIT("-fwarn-unused-toplevel")
+opt_WarnUnusedImports          = lookUp  SLIT("-fwarn-unused-imports")
 opt_WarnMissingMethods         = lookUp  SLIT("-fwarn-missing-methods")
 opt_WarnDuplicateExports       = lookUp  SLIT("-fwarn-duplicate-exports")
 opt_PruneTyDecls               = not (lookUp SLIT("-fno-prune-tydecls"))