[project @ 2003-09-23 14:32:57 by simonmar]

[ghc-hetmet.git] / ghc / compiler / basicTypes / BasicTypes.lhs

diff --git a/ghc/compiler/basicTypes/BasicTypes.lhs b/ghc/compiler/basicTypes/BasicTypes.lhs
index 1f74e7f..de65b85 100644 (file)
--- a/ghc/compiler/basicTypes/BasicTypes.lhs
+++ b/ghc/compiler/basicTypes/BasicTypes.lhs
@@ -402,6 +402,7 @@ e.g.        data T = MkT !Int !(Bool,Bool)
 \begin{code}
 data StrictnessMark
    = MarkedUserStrict  -- "!"  in a source decl
+   | MarkedUserUnboxed  -- "!!" in a source decl
    | MarkedStrict      -- "!"  in an interface decl: strict but not unboxed
    | MarkedUnboxed     -- "!!" in an interface decl: unboxed 
    | NotMarkedStrict   -- No annotation at all