X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FDsMeta.hs;h=00506e8a98ca2899df32a98e536217c9d66bf3b4;hb=73ac2f44193dcfe4cc56aab5b2910cf4edc24a18;hp=f6f0522b251d543560d3ee8868897ffe87beb771;hpb=4ef18ea237ee070678970dbdd49714014dd9efbf;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/DsMeta.hs b/ghc/compiler/deSugar/DsMeta.hs
index f6f0522..00506e8 100644
--- a/ghc/compiler/deSugar/DsMeta.hs
+++ b/ghc/compiler/deSugar/DsMeta.hs
@@ -332,6 +332,7 @@ repE (HsSplice n e loc)
 repE (HsLam m)      = repLambda m
 repE (HsApp x y)    = do {a <- repE x; b <- repE y; repApp a b}
 repE (NegApp x nm)  = panic "No negate yet"
+repE (HsPar x)      = repE x
 repE (SectionL x y) = do { a <- repE x; b <- repE y; repSectionL a b } 
 repE (SectionR x y) = do { a <- repE x; b <- repE y; repSectionR a b } 
 
@@ -371,11 +372,15 @@ repE (HsLet bs e) = do { (ss,ds) <- repBinds bs
 repE (ExplicitList ty es)     = do { xs <- repEs es; repListExp xs } 
 repE (ExplicitTuple es boxed) = do { xs <- repEs es; repTup xs }
 
-repE (ExplicitPArr ty es)   = panic "No parallel arrays yet"
-repE (RecordConOut _ _ _)   = panic "No record construction yet"
-repE (RecordUpdOut _ _ _ _) = panic "No record update yet"
-repE (ExprWithTySig e ty)   = panic "No expressions with type signatures yet"
-
+repE (ExplicitPArr ty es)   = panic "repE: No parallel arrays yet"
+repE (RecordConOut _ _ _)   = panic "repE: No record construction yet"
+repE (RecordUpdOut _ _ _ _) = panic "repE: No record update yet"
+repE (ExprWithTySig e ty)   = 
+  panic "repE: No expressions with type signatures yet" 
+repE (HsCCall _ _ _ _ _)    = panic "repE: Can't represent __ccall__"
+repE (HsSCC _ _)            = panic "repE: Can't represent SCC"
+repE (HsBracketOut _ _)     = panic "repE: No Oxford brackets yet"
+repE (HsReify _)            = panic "repE: No reification yet"
 
 -----------------------------------------------------------------------------
 -- Building representations of auxillary structures like Match, Clause, Stmt,