A HTML truncator for Haskell