X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2FdeSugar%2FDsMeta.hs;h=11a53233b03e6c216d21caff1ab5ecc36e1666db;hb=d0ea71ec5000050ec22487029a9fcf6da76ee422;hp=fa7fafe2a2e8fcfdf4c5cf143a181c86b6306995;hpb=49ae18be5dbd124c59a13e7ccb7338525e68ad4d;p=ghc-hetmet.git

diff --git a/compiler/deSugar/DsMeta.hs b/compiler/deSugar/DsMeta.hs
index fa7fafe..11a5323 100644
--- a/compiler/deSugar/DsMeta.hs
+++ b/compiler/deSugar/DsMeta.hs
@@ -531,7 +531,7 @@ repE (RecordCon c _ (HsRecordBinds flds))
  = do { x <- lookupLOcc c;
         fs <- repFields flds;
         repRecCon x fs }
-repE (RecordUpd e (HsRecordBinds flds) _ _)
+repE (RecordUpd e (HsRecordBinds flds) _ _ _)
  = do { x <- repLE e;
         fs <- repFields flds;
         repRecUpd x fs }