Make getTag use a bang pattern instead of seq
authorDavid Feuer <David.Feuer@gmail.com>
Fri, 7 Nov 2014 13:19:18 +0000 (14:19 +0100)
committerHerbert Valerio Riedel <hvr@gnu.org>
Fri, 7 Nov 2014 13:19:34 +0000 (14:19 +0100)
commitdc5fa804c604fa73494d97f1f1b0fef649731481
tree152c3d2cfad5ff3b0d518a815b0e410d01d3b19a
parentabba3812e657a5267bba406d2c877c1cb5d978f9
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
libraries/base/GHC/Base.lhs