[project @ 1997-06-05 20:03:02 by sof]

wibble

diff --git a/ghc/compiler/stgSyn/StgSyn.lhs b/ghc/compiler/stgSyn/StgSyn.lhs
index 59db2d8..04003f9 100644 (file)
--- a/ghc/compiler/stgSyn/StgSyn.lhs
+++ b/ghc/compiler/stgSyn/StgSyn.lhs
@@ -71,7 +71,7 @@ with respect to binder and occurrence information (just as in
 data GenStgBinding bndr occ
   = StgNonRec  bndr (GenStgRhs bndr occ)
   | StgRec     [(bndr, GenStgRhs bndr occ)]
-  | StgCoerceBinding bndr occ
+  | StgCoerceBinding bndr occ                  -- UNUSED?
 \end{code}
 
 %************************************************************************