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

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:
parent abba3812
......@@ -1121,7 +1121,7 @@ in the case when the argument is already known to be evaluated.
{-# INLINE getTag #-}
getTag :: a -> Int#
getTag x = x `seq` dataToTag# x
getTag !x = dataToTag# x
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