From the text:

intToFloat :: Int -> Float intToFloat i = fromInteger (toInteger i) |

The exercise:

pixelToInch :: Int -> Float pixelToInch x = intToFloat x / 100 {- pixelToInchBad :: Int -> Float pixelToInchBad x = intToFloat (x / 100) -} pixelToInchBad :: Int -> Float pixelToInchBad x = intToFloat (x `div` 100) |

Apart from anything else, the commented out version of `pixelToInchBad` gives an error, viz.: `Instance of Fractional Int required for definition of pixelToInchBad`. Assuming the second version is what the book is hinting at, this has the same issues with loss of precision that we saw in Exercise 4.1.

Edit: this is indeed what the book should properly say (see erratum 4).