[project @ 1999-01-21 19:59:20 by sof]

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

diff --git a/ghc/compiler/basicTypes/Id.lhs b/ghc/compiler/basicTypes/Id.lhs
index 56afa7a..2b8271e 100644 (file)
--- a/ghc/compiler/basicTypes/Id.lhs
+++ b/ghc/compiler/basicTypes/Id.lhs
@@ -174,9 +174,8 @@ omitIfaceSigForId id
 \end{code}
 
 \begin{code}
-mkIdVisible :: Module -> Unique -> Id -> Id
-mkIdVisible mod u id 
-  = setIdName id (mkNameVisible mod u (idName id))
+mkIdVisible :: Module -> Id -> Id
+mkIdVisible mod id = setIdName id (mkNameVisible mod (idName id))
 \end{code}
 
 %************************************************************************