From 84e376bc7bc01799d444cdb2d915d69f36fe77d5 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Wed, 5 Jun 2002 14:07:47 +0000
Subject: [PATCH] [project @ 2002-06-05 14:07:47 by simonpj] Add comment

---
 ghc/compiler/hsSyn/HsPat.lhs |    2 ++
 1 file changed, 2 insertions(+)

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
 
-- 
1.7.10.4