Fix bug in Fold.hs.