{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
import Protolude

import Criterion
import Criterion.Main

import Lish.Parser (parseCmd)

main :: IO ()
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 ))))))))))))))))))))))))")
  ]