[project @ 2002-10-30 11:23:28 by simonpj]

[ghc-hetmet.git] / ghc / compiler / hsSyn / Convert.lhs

diff --git a/ghc/compiler/hsSyn/Convert.lhs b/ghc/compiler/hsSyn/Convert.lhs
index 41018f7..c8cca66 100644 (file)
--- 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)