X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FhsSyn%2FConvert.lhs;h=c8cca66cddaff4881508763534f317821bb8c31c;hb=8a82d1837c37081ce1c7fa25ee18270b68fca339;hp=41018f7edcbacc69d4c2a0774bb23910773db181;hpb=452deb2604c18ae9c1531a4eb33796e2d4aa6b67;p=ghc-hetmet.git

diff --git a/ghc/compiler/hsSyn/Convert.lhs b/ghc/compiler/hsSyn/Convert.lhs
index 41018f7..c8cca66 100644
--- a/ghc/compiler/hsSyn/Convert.lhs
+++ b/ghc/compiler/hsSyn/Convert.lhs
@@ -178,7 +178,6 @@ cvtOverLit (Int i) = mkHsIntegral (fromInt i)
 
 cvtLit :: Lit -> HsLit
 cvtLit (Char c)	      = HsChar (ord c)
-cvtLit (CrossStage s) = error "What do we do about crossStage constants?"
 
 cvtp :: Meta.Pat -> Hs.Pat RdrName
 cvtp (Plit l)