Effective Haskell: Error in addPeano function (p 92, pdf)

Good catch- thank you!