jmacro-0.6.2: Language/Javascript/JMacro/Benchmark.hs

{-# LANGUAGE QuasiQuotes #-}

import Criterion.Main
import Language.Javascript.JMacro
import Text.PrettyPrint.Leijen.Text (renderPretty, renderCompact, displayT)

main = defaultMain [pretty, compact]

pretty = bench "pretty" $ nf (displayT . renderPretty 0.4 100 . renderJs) jmPrelude

compact = bench "compact" $ nf (displayT . renderCompact . renderJs) jmPrelude