From: simonpj <unknown>
Date: Wed, 5 Jun 2002 14:07:47 +0000 (+0000)
Subject: [project @ 2002-06-05 14:07:47 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~1988
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=84e376bc7bc01799d444cdb2d915d69f36fe77d5;p=ghc-hetmet.git

[project @ 2002-06-05 14:07:47 by simonpj]
Add comment
---

diff --git a/ghc/compiler/hsSyn/HsPat.lhs b/ghc/compiler/hsSyn/HsPat.lhs
index 97be698..10e22b8 100644
--- a/ghc/compiler/hsSyn/HsPat.lhs
+++ b/ghc/compiler/hsSyn/HsPat.lhs
@@ -133,6 +133,8 @@ data OutPat id
 						-- the desugarer can readily identify
 						-- equations with identical literal-patterns
 						-- Always HsInteger, HsRat or HsString.
+						-- *Unlike* NPatIn, for negative literals, the
+						-- 	literal is acutally negative!
 		    Type	 		-- Type of pattern, t
    	    	    (HsExpr id (OutPat id))	-- Of type t -> Bool; detects match