X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FcodeGen%2FCgMonad.lhs;fp=ghc%2Fcompiler%2FcodeGen%2FCgMonad.lhs;h=f6b209672aed524ba23de7a69f0736c60f7363bb;hb=6458c2c59780ea01a79f3c31b9b2545a0241606d;hp=003be9701cb8c5bdabc44cdda9e25adbd79cde06;hpb=1b9841866c2b49484a3af10ab2d8f5bb6d68ab84;p=ghc-hetmet.git

diff --git a/ghc/compiler/codeGen/CgMonad.lhs b/ghc/compiler/codeGen/CgMonad.lhs
index 003be97..f6b2096 100644
--- a/ghc/compiler/codeGen/CgMonad.lhs
+++ b/ghc/compiler/codeGen/CgMonad.lhs
@@ -1,7 +1,7 @@
 %
 % (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
 %
-% $Id: CgMonad.lhs,v 1.40 2004/08/13 13:06:03 simonmar Exp $
+% $Id: CgMonad.lhs,v 1.41 2004/09/10 14:53:47 simonmar Exp $
 %
 \section[CgMonad]{The code generation monad}
 
@@ -169,8 +169,8 @@ data Sequel
 
 type SemiTaggingStuff
   = Maybe			-- Maybe[1] we don't have any semi-tagging stuff...
-     ([(ConTagZ, CLabel)],	-- Alternatives
-      CLabel)			-- Default (will be a can't happen RTS label if can't happen)
+     ([(ConTagZ, CmmLit)],	-- Alternatives
+      CmmLit)			-- Default (will be a can't happen RTS label if can't happen)
 
 type ConTagZ = Int	-- A *zero-indexed* contructor tag