From 80baa709ce8e257a74f88d97f32e6c049c58ba11 Mon Sep 17 00:00:00 2001 From: panne Date: Sun, 17 Apr 2005 11:11:33 +0000 Subject: [PATCH] [project @ 2005-04-17 11:11:32 by panne] Haddock fixes, "-- *" should be used with care... --- ghc/compiler/deSugar/DsArrows.lhs | 2 +- ghc/compiler/hsSyn/HsPat.lhs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/ghc/compiler/deSugar/DsArrows.lhs b/ghc/compiler/deSugar/DsArrows.lhs index 82fc612..43df99c 100644 --- a/ghc/compiler/deSugar/DsArrows.lhs +++ b/ghc/compiler/deSugar/DsArrows.lhs @@ -822,7 +822,7 @@ dsCmdStmt ids local_vars env_ids out_ids (LetStmt binds) -- arr (\((xs1),(xs2)) -> (xs')) >>> ss' dsCmdStmt ids local_vars env_ids out_ids (RecStmt stmts later_ids rec_ids rhss binds) - = let -- ****** binds not desugared; ROSS PLEASE FIX ******** + = let -- ToDo: ****** binds not desugared; ROSS PLEASE FIX ******** env2_id_set = mkVarSet out_ids `minusVarSet` mkVarSet later_ids env2_ids = varSetElems env2_id_set env2_ty = mkTupleType env2_ids diff --git a/ghc/compiler/hsSyn/HsPat.lhs b/ghc/compiler/hsSyn/HsPat.lhs index 322549b..2243f5f 100644 --- a/ghc/compiler/hsSyn/HsPat.lhs +++ b/ghc/compiler/hsSyn/HsPat.lhs @@ -79,7 +79,7 @@ data Pat id | LitPat HsLit -- Used for *non-overloaded* literal patterns: -- Int#, Char#, Int, Char, String, etc. - | NPat (HsOverLit id) -- *Always* positive + | NPat (HsOverLit id) -- ALWAYS positive (Maybe (SyntaxExpr id)) -- Just (Name of 'negate') for negative -- patterns, Nothing otherwise (SyntaxExpr id) -- Equality checker, of type t->t->Bool -- 1.7.10.4