Try running the initial code on [this kata](https://www.codewars.com/kata/count-them-all/haskell):  It seems that formatting breaks if a runtime error is triggered while doing QuickCheck testing.