X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FdeSugar%2FCoverage.lhs;h=116d3bf0538b79fefb8461780c1a97f97cd1fa54;hp=2bbf18777dd6348bcae5ce0fb69fd84c09202a00;hb=2eb04ca0f8d0ec72b417cddc60672c696b4a3daa;hpb=74b27e20425336403d80e942ee3faf00f8c36ef8

diff --git a/compiler/deSugar/Coverage.lhs b/compiler/deSugar/Coverage.lhs
index 2bbf187..116d3bf 100644
--- a/compiler/deSugar/Coverage.lhs
+++ b/compiler/deSugar/Coverage.lhs
@@ -495,12 +495,13 @@ addTickDictBinds :: DictBinds Id -> TM (DictBinds Id)
 addTickDictBinds x = addTickLHsBinds x
 
 addTickHsRecordBinds :: HsRecordBinds Id -> TM (HsRecordBinds Id)
-addTickHsRecordBinds (HsRecordBinds pairs) = liftM HsRecordBinds (mapM process pairs)
-    where
-	process (ids,expr) = 
-		liftM2 (,) 
-			(return ids)
-			(addTickLHsExpr expr)			
+addTickHsRecordBinds (HsRecFields fields dd) 
+  = do	{ fields' <- mapM process fields
+	; return (HsRecFields fields' dd) }
+  where
+    process (HsRecField ids expr doc)
+	= do { expr' <- addTickLHsExpr expr
+	     ; return (HsRecField ids expr' doc) }
 
 addTickArithSeqInfo :: ArithSeqInfo Id -> TM (ArithSeqInfo Id)
 addTickArithSeqInfo (From e1) =