Remove PatSynBuilderId
[ghc.git] / compiler / deSugar / DsMeta.hs
index 90dcea4..2ad38c0 100644 (file)
@@ -1142,7 +1142,7 @@ repE e@(ExplicitTuple es boxed)
   | otherwise      = do { xs <- repLEs [e | L _ (Present e) <- es]
                         ; repUnboxedTup xs }
 
-repE (RecordCon c _ flds)
+repE (RecordCon c _ flds _)
  = do { x <- lookupLOcc c;
         fs <- repFields flds;
         repRecCon x fs }