From: simonpj <unknown>
Date: Tue, 24 Feb 2004 11:52:34 +0000 (+0000)
Subject: [project @ 2004-02-24 11:52:34 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~78
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=fd84479363b68cec600ad79d4e22c4fe35da094f;p=ghc-hetmet.git

[project @ 2004-02-24 11:52:34 by simonpj]
Comment only
---

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