[parse SPECIALIZE instance pragmas
John Meacham <john@repetae.net>**20090304111805
 Ignore-this: c932c744c2679f7ef83ed10aa0f5bd76
] hunk ./FrontEnd/HsParser.y 27
+import Name.Names
+import Name.Name
+
hunk ./FrontEnd/HsParser.y 605
+      | srcloc PRAGMASPECIALIZE 'instance'  type PRAGMAEND
+                      { HsPragmaSpecialize { hsDeclSrcLoc = $1, hsDeclBool = $2, hsDeclName = nameName u_instance , hsDeclType = $4
+                                           , hsDeclUniq = error "hsDeclUniq not set"  } }
hunk ./FrontEnd/HsSyn.hs 231
-    | HsPragmaSpecialize { hsDeclUniq :: (Module,Int), hsDeclSrcLoc :: SrcLoc, hsDeclBool :: Bool, hsDeclName :: HsName, hsDeclType :: HsType }
+    | HsPragmaSpecialize {
+        hsDeclUniq :: (Module,Int),
+        hsDeclSrcLoc :: SrcLoc,
+        hsDeclBool :: Bool,
+        hsDeclName :: HsName,
+        hsDeclType :: HsType
+        }
hunk ./Name/Names.hs 78
+u_instance = toName UnknownType ("Jhc@","instance")
+