[project @ 2004-04-05 11:09:20 by simonpj]

Wibble to :k

diff --git a/ghc/compiler/compMan/CompManager.lhs b/ghc/compiler/compMan/CompManager.lhs
index 95f31fe..4bf69d6 100644 (file)
--- a/ghc/compiler/compMan/CompManager.lhs
+++ b/ghc/compiler/compMan/CompManager.lhs
@@ -319,9 +319,9 @@ cmTypeOfExpr cmstate expr
 
        case maybe_stuff of
           Nothing -> return Nothing
-          Just ty -> return (Just str)
+          Just ty -> return (Just res_str)
             where 
-               str     = showSDocForUser unqual (text expr <+> dcolon <+> ppr tidy_ty)
+               res_str = showSDocForUser unqual (text expr <+> dcolon <+> ppr tidy_ty)
                unqual  = icPrintUnqual (cm_ic cmstate)
                tidy_ty = tidyType emptyTidyEnv ty
 
@@ -334,9 +334,9 @@ cmKindOfType cmstate str
    = do maybe_stuff <- hscKcType (cm_hsc cmstate) (cm_ic cmstate) str
        case maybe_stuff of
           Nothing -> return Nothing
-          Just kind -> return (Just str)
+          Just kind -> return (Just res_str)
             where 
-               str     = showSDocForUser unqual (text str <+> dcolon <+> ppr kind)
+               res_str = showSDocForUser unqual (text str <+> dcolon <+> ppr kind)
                unqual  = icPrintUnqual (cm_ic cmstate)
 
 -----------------------------------------------------------------------------