[project @ 2005-11-12 21:41:12 by simonpj]

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

diff --git a/ghc/compiler/basicTypes/OccName.lhs b/ghc/compiler/basicTypes/OccName.lhs
index 529117c..ea58cbc 100644 (file)
--- a/ghc/compiler/basicTypes/OccName.lhs
+++ b/ghc/compiler/basicTypes/OccName.lhs
@@ -162,8 +162,8 @@ nameSpaceString TcClsName = "Type constructor or class"
 
 \begin{code}
 data OccName = OccName 
-    { occNameSpace  :: NameSpace
-    , occNameFS     :: EncodedFS
+    { occNameSpace  :: !NameSpace
+    , occNameFS     :: !EncodedFS
     }
 \end{code}