From 158f8ac6cc3d73ad776056d2a86196a1fc7d8703 Mon Sep 17 00:00:00 2001 From: simonpj Date: Mon, 5 Apr 2004 11:09:20 +0000 Subject: [PATCH] [project @ 2004-04-05 11:09:20 by simonpj] Wibble to :k --- ghc/compiler/compMan/CompManager.lhs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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) ----------------------------------------------------------------------------- -- 1.7.10.4