From 97de8ea4019dfb70551c2b6b023b19ca53a1c576 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Mon, 17 Feb 2003 15:13:09 +0000
Subject: [PATCH] [project @ 2003-02-17 15:13:09 by simonpj] Type sig for
 getTag

---
 GHC/Base.lhs |    1 +
 1 file changed, 1 insertion(+)

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