X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fspecialise%2FSpecConstr.lhs;h=db06d554b4ae2a89f19bc77ba8dd91ae6d266720;hb=d4050431de1adddedb240e497f77f89301f77070;hp=4e675f97f81e3ea90a04ff20fa0f32b01d1d1c66;hpb=e46cab34c24d2b9bdb37dbddf8ff640653b0b35f;p=ghc-hetmet.git

diff --git a/compiler/specialise/SpecConstr.lhs b/compiler/specialise/SpecConstr.lhs
index 4e675f9..db06d55 100644
--- a/compiler/specialise/SpecConstr.lhs
+++ b/compiler/specialise/SpecConstr.lhs
@@ -27,7 +27,7 @@ import Id		( Id, idName, idType, isDataConWorkId_maybe,
 import Var		( Var )
 import VarEnv
 import VarSet
-import Name		( nameOccName, nameSrcLoc )
+import Name
 import Rules		( addIdSpecialisations, mkLocalRule, rulesOfBinds )
 import OccName		( mkSpecOcc )
 import ErrUtils		( dumpIfSet_dyn )
@@ -982,7 +982,7 @@ spec_one env fn arg_bndrs body ((qvars, pats), rule_number)
 	      	-- a spec_rhs of unlifted type and no args
 	
 	      fn_name   = idName fn
-	      fn_loc    = nameSrcLoc fn_name
+	      fn_loc    = nameSrcSpan fn_name
 	      spec_occ  = mkSpecOcc (nameOccName fn_name)
 	      rule_name = mkFastString ("SC:" ++ showSDoc (ppr fn <> int rule_number))
 	      spec_rhs  = mkLams spec_lam_args spec_body