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

[ghc-hetmet.git] / ghc / compiler / hsSyn / HsDecls.lhs

diff --git a/ghc/compiler/hsSyn/HsDecls.lhs b/ghc/compiler/hsSyn/HsDecls.lhs
index 43efaf5..24f6b99 100644 (file)
--- 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