[Fix desugaring of record patterns
Samuel Bronson <naesten@gmail.com>**20090130204614] hunk ./FrontEnd/Desugar.hs 261
-    f name (HsPRec _ _) = error  "f name (HsPRec _ _): not implemented"
+    f name (HsPRec conName fields) = HsPRec conName [ HsPFieldPat fname (f name pat) 
+                                                      | HsPFieldPat fname pat <- fields ]