Add html-parse-length

app/Main.hs

@@ -0,0 +1,15 @@
+module Main where
+
+import Control.Monad
+import qualified Data.Text as T
+import qualified Data.Text.IO as T
+import Text.HTML.Parser
+import System.Environment
+
+main :: IO ()
+main = do 
+    files <- getArgs
+    forM_ files $ \fname -> do
+        t <- T.readFile fname
+        print $ length $ parseTokens t
+

html-parse.cabal

@@ -103,3 +103,12 @@ test-suite spec
                        string-conversions,
                        text
   default-language:    Haskell2010
+
+-- For performance characterisation during optimisation
+executable html-parse-length
+  main-is:             app/Main.hs
+  --buildable:           False
+  build-depends:       base,
+                       html-parse,
+                       text
+  default-language:    Haskell2010