yogsototh/lish
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

another benchmark

Browse source
This commit is contained in:
Yann Esposito (Yogsototh) 2019-09-07 15:41:06 +02:00
parent 05ad021c99
commit d3e03799d2
Signed by untrusted user who does not match committer: yogsototh
GPG key ID: 7B19A4C650D59646
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src-benchmark/Main.hs
View file

@ -8,5 +8,9 @@ import Criterion.Main
import Lish.Parser (parseCmd) import Lish.Parser (parseCmd)
main :: IO () main :: IO ()
main = defaultMain [bench "parseCmd (foo \"bar\")" main = defaultMain
(whnf parseCmd ("(foo \"bar\")" :: Text))] [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 ))))))))))))))))))))))))")
]