[project @ 2003-02-17 15:13:09 by simonpj]

Type sig for getTag

diff --git a/GHC/Base.lhs b/GHC/Base.lhs
index 9cdd755..2598583 100644 (file)
--- a/GHC/Base.lhs
+++ b/GHC/Base.lhs
@@ -687,6 +687,7 @@ in the case when the argument is already known to be evaluated.
 
 \begin{code}
 {-# INLINE getTag #-}
+getTag :: a -> Int#
 getTag x = x `seq` dataToTag# x
 \end{code}