ats-format-0.1.0.0: bench/Bench.hs

module Main where

import           Criterion.Main
import           Language.ATS.Lexer
import           Language.ATS.Parser
import           Language.ATS.PrettyPrint

main :: IO ()
main =
    defaultMain [ env envFiles $ \ ~(l, m) ->
                  bgroup "format"
                      [ bench "lexATS (large)" $ nf lexATS l
                      , bench "parseATS . lexATS (large)" $ nf (parseATS . lexATS) l
                      , bench "printATS . parseATS . lexATS (large)" $ nf (fmap printATS . parseATS . lexATS) l
                      , bench "lexATS (medium)" $ nf lexATS m
                      , bench "parseATS . lexATS (medium)" $ nf (parseATS . lexATS) m
                      , bench "printATS . parseATS . lexATS (medium)" $ nf (fmap printATS . parseATS . lexATS) m
                      ]
                ]
    where large = readFile "test/data/polyglot.dats"
          medium = readFile "test/data/filetype.sats"
          envFiles = (,) <$> large <*> medium