From fd84479363b68cec600ad79d4e22c4fe35da094f Mon Sep 17 00:00:00 2001 From: simonpj Date: Tue, 24 Feb 2004 11:52:34 +0000 Subject: [PATCH] [project @ 2004-02-24 11:52:34 by simonpj] Comment only --- ghc/compiler/hsSyn/HsDecls.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ghc/compiler/hsSyn/HsDecls.lhs b/ghc/compiler/hsSyn/HsDecls.lhs index 43efaf5..24f6b99 100644 --- a/ghc/compiler/hsSyn/HsDecls.lhs +++ b/ghc/compiler/hsSyn/HsDecls.lhs @@ -480,7 +480,7 @@ data BangType name = BangType HsBang (LHsType name) data HsBang = HsNoBang | HsStrict -- ! - | HsUnbox -- !! (GHC extension, meaning "unbox") + | HsUnbox -- {-# UNPACK #-} ! (GHC extension, meaning "unbox") getBangType (BangType _ ty) = ty getBangStrictness (BangType s _) = s -- 1.7.10.4