{-# LANGUAGE QuasiQuotes #-} import Test.Hspec import Text.RawString.QQ import Text.HTML.TagSoup import Text.Megaparsec import Text.Megaparsec.TagSoup type StringTagParser = TagParser String testDoc = [r|