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)
|
||||
|
||||
main :: IO ()
|
||||
main = defaultMain [bench "parseCmd (foo \"bar\")"
|
||||
(whnf parseCmd ("(foo \"bar\")" :: Text))]
|
||||
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 ))))))))))))))))))))))))")
|
||||
]
|
||||
|
|
Loading…
Reference in a new issue