X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FInst.lhs;h=5c6d8fe4dbe029bdbe0c5cfb2ffc5aea635f2920;hp=a6d92a9c1bbc46a93f3f630a324d1c72a22e080c;hb=940524aec90652b5ef81789c9a453c57c0e42cc9;hpb=485b80f9c422e49a441ec0b175c39799630171da

diff --git a/compiler/typecheck/Inst.lhs b/compiler/typecheck/Inst.lhs
index a6d92a9..5c6d8fe 100644
--- a/compiler/typecheck/Inst.lhs
+++ b/compiler/typecheck/Inst.lhs
@@ -329,7 +329,7 @@ newIPDict orig ip_name ty
 \begin{code}
 mkPredName :: Unique -> InstLoc -> PredType -> Name
 mkPredName uniq loc pred_ty
-  = mkInternalName uniq occ (srcSpanStart (instLocSpan loc))
+  = mkInternalName uniq occ (instLocSpan loc)
   where
     occ = case pred_ty of
 	    ClassP cls _ -> mkDictOcc (getOccName cls)
@@ -413,7 +413,7 @@ newMethod inst_loc id tys
 	meth_id	    = mkUserLocal (mkMethodOcc (getOccName id)) new_uniq tau loc
 	inst        = Method {tci_id = meth_id, tci_oid = id, tci_tys = tys,
 			      tci_theta = theta, tci_loc = inst_loc}
-	loc         = srcSpanStart (instLocSpan inst_loc)
+	loc         = instLocSpan inst_loc
     in
     returnM inst
 \end{code}