[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 (file)
--- 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