Or you could use Centi instead of Float:

http://hackage.haskell.org/package/base-4.11.0.0/docs/Data-Fixed.html