Speeding up tree-sitter-haskell 50x

This code was written a while ago, but I decided it merited a write-up recently.