another benchmark
This commit is contained in:
parent
05ad021c99
commit
d3e03799d2
1 changed files with 6 additions and 2 deletions
|
@ -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 ))))))))))))))))))))))))")
|
||||||
|
]
|
||||||
|
|
Loading…
Reference in a new issue