From: panne <unknown>
Date: Sun, 17 Apr 2005 11:11:33 +0000 (+0000)
Subject: [project @ 2005-04-17 11:11:32 by panne]
X-Git-Tag: Initial_conversion_from_CVS_complete~725
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=80baa709ce8e257a74f88d97f32e6c049c58ba11

[project @ 2005-04-17 11:11:32 by panne]
Haddock fixes, "-- *" should be used with care...
---

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