[haskell] remove do, apprently not needed
[haskell] refactor isSilence to use all
[haskell] inline folds to all