From: chak <unknown>
Date: Tue, 29 Oct 2002 11:57:41 +0000 (+0000)
Subject: [project @ 2002-10-29 11:57:41 by chak]
X-Git-Tag: Approx_11550_changesets_converted~1497
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=73ac2f44193dcfe4cc56aab5b2910cf4edc24a18

[project @ 2002-10-29 11:57:41 by chak]
Added a case for HsPar to repE.  Also completed the cases in repE to at
least panic for the missing syntactic forms of HsExpr.

Is there any good reason for the semi-random order of the cases in repE?
Using the same order as in the data declaration for HsExpr would make it
easier to spot missing cases.
---

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,