diff options
| -rw-r--r-- | libraries/base/GHC/Base.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/GHC/Base.lhs b/libraries/base/GHC/Base.lhs index 495a6b25b8..217f6addd5 100644 --- a/libraries/base/GHC/Base.lhs +++ b/libraries/base/GHC/Base.lhs @@ -1121,7 +1121,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 +getTag !x = dataToTag# x \end{code} %********************************************************* |