[project @ 2002-10-09 16:53:10 by simonpj]

[ghc-hetmet.git] / ghc / compiler / deSugar / DsMeta.hs

diff --git a/ghc/compiler/deSugar/DsMeta.hs b/ghc/compiler/deSugar/DsMeta.hs
index 1899ff3..8571e1e 100644 (file)
--- a/ghc/compiler/deSugar/DsMeta.hs
+++ b/ghc/compiler/deSugar/DsMeta.hs
@@ -284,7 +284,7 @@ repE (HsIPVar x)    = panic "Can't represent implicit parameters"
 repE (HsLit l)      = do { a <- repLiteral l;           repLit a }
 repE (HsOverLit l)  = do { a <- repOverloadedLiteral l; repLit a }
 
-repE (HsSplice n e) 
+repE (HsSplice n e loc) 
   = do { mb_val <- dsLookupMetaEnv n
        ; case mb_val of
             Just (Splice e) -> do { e' <- dsExpr e