[project @ 2001-02-07 11:48:10 by simonmar]

wibble

diff --git a/ghc/compiler/compMan/CompManager.lhs b/ghc/compiler/compMan/CompManager.lhs
index 5d89433..befb5b3 100644 (file)
--- a/ghc/compiler/compMan/CompManager.lhs
+++ b/ghc/compiler/compMan/CompManager.lhs
@@ -742,8 +742,8 @@ downsweep rootNm old_summaries
                 hs_file = file ++ ".hs"
                 lhs_file = file ++ ".lhs"
 
-        getSummaries :: ModuleName -> IO ModSummary
-        getSummaries nm
+        getSummary :: ModuleName -> IO ModSummary
+        getSummary nm
            -- | trace ("getSummary: "++ showSDoc (ppr nm)) True
            = do found <- findModule nm
                case found of