diff options
| author | David Feuer <David.Feuer@gmail.com> | 2014-11-07 14:19:18 +0100 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2014-11-07 14:19:34 +0100 |
| commit | dc5fa804c604fa73494d97f1f1b0fef649731481 (patch) | |
| tree | 152c3d2cfad5ff3b0d518a815b0e410d01d3b19a | |
| parent | abba3812e657a5267bba406d2c877c1cb5d978f9 (diff) | |
| download | haskell-dc5fa804c604fa73494d97f1f1b0fef649731481.tar.gz | |
Make getTag use a bang pattern instead of seq
It's prettier that way, and there's less risk of anything
going sideways.
Reviewed By: hvr, simonpj
Differential Revision: https://phabricator.haskell.org/D450
| -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} %********************************************************* |