From 73ac2f44193dcfe4cc56aab5b2910cf4edc24a18 Mon Sep 17 00:00:00 2001 From: chak Date: Tue, 29 Oct 2002 11:57:41 +0000 Subject: [PATCH] [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. --- ghc/compiler/deSugar/DsMeta.hs | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) 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, -- 1.7.10.4