From 66cc3339bd3b21a226cee5177bb2b8378c925ea7 Mon Sep 17 00:00:00 2001
From: "andy@galois.com" <unknown>
Date: Wed, 11 Jul 2007 07:18:42 +0000
Subject: [PATCH] Adding better support for HsSyn

---
 compiler/deSugar/Coverage.lhs |   20 ++++++++++++++++----
 1 file changed, 16 insertions(+), 4 deletions(-)

diff --git a/compiler/deSugar/Coverage.lhs b/compiler/deSugar/Coverage.lhs
index 8d90900..12c5b4f 100644
--- a/compiler/deSugar/Coverage.lhs
+++ b/compiler/deSugar/Coverage.lhs
@@ -310,7 +310,10 @@ addTickHsExpr (ExplicitList ty es) =
 	liftM2 ExplicitList 
 		(return ty)
 		(mapM (addTickLHsExpr) es)
-addTickHsExpr (ExplicitPArr	 {}) = error "addTickHsExpr: ExplicitPArr"
+addTickHsExpr (ExplicitPArr ty es) =
+	liftM2 ExplicitPArr
+		(return ty)
+		(mapM (addTickLHsExpr) es)
 addTickHsExpr (ExplicitTuple es box) =
 	liftM2 ExplicitTuple
 		(mapM (addTickLHsExpr) es)
@@ -340,9 +343,18 @@ addTickHsExpr (HsTickPragma (file,(l1,c1),(l2,c2)) (L pos e0)) = do
     e2 <- allocTickBox (ExpBox False) pos $
                 addTickHsExpr e0
     return $ unLoc e2
-addTickHsExpr (PArrSeq	 {}) = error "addTickHsExpr: PArrSeq"
-addTickHsExpr (HsSCC	 {}) = error "addTickHsExpr: HsSCC"
-addTickHsExpr (HsCoreAnn   {}) = error "addTickHsExpr: HsCoreAnn"
+addTickHsExpr (PArrSeq	 ty arith_seq) =
+	liftM2 PArrSeq	
+		(return ty)
+		(addTickArithSeqInfo arith_seq)
+addTickHsExpr (HsSCC nm e) =
+        liftM2 HsSCC 
+                (return nm)
+                (addTickLHsExpr e)
+addTickHsExpr (HsCoreAnn nm e) = 
+        liftM2 HsCoreAnn 
+                (return nm)
+                (addTickLHsExpr e)
 addTickHsExpr e@(HsBracket     {}) = return e
 addTickHsExpr e@(HsBracketOut  {}) = return e
 addTickHsExpr e@(HsSpliceE  {}) = return e
-- 
1.7.10.4