[annotate instances with their declaration location
John Meacham <john@repetae.net>**20061108004943] {
hunk ./FrontEnd/Class.hs 207
-hsInstDeclToInst kt (HsInstDecl _sloc qType decls)
+hsInstDeclToInst kt (HsInstDecl sloc qType decls)
hunk ./FrontEnd/Class.hs 209
-        = return [emptyInstance { instDerived = False, instHead = cntxt :=> IsIn className convertedArgType, instAssocs = assocs }]
-   | otherwise = failSl _sloc $ "hsInstDeclToInst: kind error, attempt to make\n" ++
+        = return [emptyInstance { instSrcLoc = sloc, instDerived = False, instHead = cntxt :=> IsIn className convertedArgType, instAssocs = assocs }]
+   | otherwise = failSl sloc $ "hsInstDeclToInst: kind error, attempt to make\n" ++
}
