Commit dc5fa804 authored by David Feuer's avatar David Feuer Committed by Herbert Valerio Riedel

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
parent abba3812
......@@ -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}
%*********************************************************
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment