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

diff --git a/compiler/typecheck/TcRnDriver.lhs b/compiler/typecheck/TcRnDriver.lhs
index ef7e929..c5a72fd 100644
--- a/compiler/typecheck/TcRnDriver.lhs
+++ b/compiler/typecheck/TcRnDriver.lhs
@@ -777,7 +777,7 @@ check_main dflags tcg_env main_mod main_fn
 		-- See Note [Root-main Id]
 	; let { root_main_name =  mkExternalName rootMainKey rOOT_MAIN 
 				   (mkVarOccFS FSLIT("main")) 
-				   (getSrcLoc main_name)
+				   (getSrcSpan main_name)
 	      ; root_main_id = Id.mkExportedLocalId root_main_name ty
 	      ; main_bind    = noLoc (VarBind root_main_id main_expr) }