From: simonpj <unknown>
Date: Mon, 17 Feb 2003 15:13:09 +0000 (+0000)
Subject: [project @ 2003-02-17 15:13:09 by simonpj]
X-Git-Tag: nhc98-1-18-release~734
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=97de8ea4019dfb70551c2b6b023b19ca53a1c576;p=haskell-directory.git

[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
--- 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}