[project @ 1999-01-27 14:51:14 by simonpj]

[ghc-hetmet.git] / ghc / compiler / basicTypes / MkId.lhs

diff --git a/ghc/compiler/basicTypes/MkId.lhs b/ghc/compiler/basicTypes/MkId.lhs
index 669be86..1c6b5d0 100644 (file)
--- a/ghc/compiler/basicTypes/MkId.lhs
+++ b/ghc/compiler/basicTypes/MkId.lhs
@@ -80,8 +80,9 @@ import List           ( nub )
 %************************************************************************
 
 \begin{code}
-mkSpecPragmaId occ uniq ty
-  = mkUserLocal occ uniq ty `setInlinePragma` IAmASpecPragmaId
+mkSpecPragmaId occ uniq ty loc
+  = mkUserLocal occ uniq ty loc `setInlinePragma` IAmASpecPragmaId
+       -- Maybe a SysLocal?  But then we'd lose the location
 
 mkDefaultMethodId dm_name rec_c ty
   = mkVanillaId dm_name ty