From 9221fb31c4207700e9aaf1512e0f73afe487674f Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Thu, 28 Aug 2008 14:22:10 +0000 Subject: [PATCH] haddock 2 doc fixes --- compiler/basicTypes/Var.lhs | 2 +- compiler/cmm/Cmm.hs | 2 +- compiler/coreSyn/CoreUtils.lhs | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/basicTypes/Var.lhs b/compiler/basicTypes/Var.lhs index 0c30ab4..cb0a11b 100644 --- a/compiler/basicTypes/Var.lhs +++ b/compiler/basicTypes/Var.lhs @@ -289,7 +289,7 @@ mkTcTyVar name kind details %************************************************************************ \begin{code} -type CoVar = Var -- ^ A coercion variable is simply a type +type CoVar = Var -- A coercion variable is simply a type -- variable of kind @ty1 :=: ty2@. Hence its -- 'varType' is always @PredTy (EqPred t1 t2)@ diff --git a/compiler/cmm/Cmm.hs b/compiler/cmm/Cmm.hs index 38dc5b3..9dcaf84 100644 --- a/compiler/cmm/Cmm.hs +++ b/compiler/cmm/Cmm.hs @@ -183,7 +183,7 @@ type ConstrDescription = CmmLit type FunType = StgHalfWord type FunArity = StgHalfWord type SlowEntry = CmmLit - -- ^We would like this to be a CLabel but + -- We would like this to be a CLabel but -- for now the parser sets this to zero on an INFO_TABLE_FUN. type SelectorOffset = StgWord diff --git a/compiler/coreSyn/CoreUtils.lhs b/compiler/coreSyn/CoreUtils.lhs index 0fe04cb..a769dcd 100644 --- a/compiler/coreSyn/CoreUtils.lhs +++ b/compiler/coreSyn/CoreUtils.lhs @@ -1474,7 +1474,7 @@ hashExpr :: CoreExpr -> Int hashExpr e = fromIntegral (hash_expr (1,emptyVarEnv) e .&. 0x7fffffff) -- UniqFM doesn't like negative Ints -type HashEnv = (Int, VarEnv Int) -- ^ Hash code for bound variables +type HashEnv = (Int, VarEnv Int) -- Hash code for bound variables hash_expr :: HashEnv -> CoreExpr -> Word32 -- Word32, because we're expecting overflows here, and overflowing -- 1.7.10.4