2019-09-07 12:13:04 +00:00
|
|
|
{-# LANGUAGE NoImplicitPrelude #-}
|
|
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
import Protolude
|
|
|
|
|
2017-02-18 16:57:37 +00:00
|
|
|
import Criterion
|
|
|
|
import Criterion.Main
|
|
|
|
|
2019-09-07 12:13:04 +00:00
|
|
|
import Lish.Parser (parseCmd)
|
2017-02-18 16:57:37 +00:00
|
|
|
|
|
|
|
main :: IO ()
|
2019-09-07 13:41:06 +00:00
|
|
|
main = defaultMain
|
|
|
|
[bench "parseCmd (foo \"bar\")"
|
|
|
|
(whnf parseCmd "(foo \"bar\")")
|
|
|
|
, bench "parseCmd (f (f ..28x...))"
|
|
|
|
(whnf parseCmd "(f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f ))))))))))))))))))))))))")
|
|
|
|
]
|