From: simonpj <unknown>
Date: Mon, 5 Apr 2004 11:09:20 +0000 (+0000)
Subject: [project @ 2004-04-05 11:09:20 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~1907
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=158f8ac6cc3d73ad776056d2a86196a1fc7d8703;p=ghc-hetmet.git

[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
--- 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)
 
 -----------------------------------------------------------------------------