From d3e03799d29ec704fe5068bb7dab04cc5be9f289 Mon Sep 17 00:00:00 2001
From: "Yann Esposito (Yogsototh)" <yann.esposito@gmail.com>
Date: Sat, 7 Sep 2019 15:41:06 +0200
Subject: [PATCH] another benchmark

---
 src-benchmark/Main.hs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src-benchmark/Main.hs b/src-benchmark/Main.hs
index 6cc61ff..43afc91 100644
--- a/src-benchmark/Main.hs
+++ b/src-benchmark/Main.hs
@@ -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 ))))))))))))))))))))))))")
+  ]