From 17768571dc33a61c0a6e5a34f781f76b2061f50b Mon Sep 17 00:00:00 2001
From: Ben Gamari <ben@smart-cactus.org>
Date: Tue, 8 Sep 2020 14:19:55 +0000
Subject: [PATCH] Fix loop
---
Main.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/Main.hs b/Main.hs
index bfe39d2..d4b969f 100644
--- a/Main.hs
+++ b/Main.hs
@@ -65,8 +65,8 @@ collectArgsTicks_OnStack = go mempty
go :: [Expr] -> Expr -> (Expr, [Expr], [Tickish])
go as (App f a) = go (a:as) f
go as (Tick t a) =
- let !(e', as, ts) = go as a
- in (e', as, t:ts)
+ let !(e', as', ts) = go as a
+ in (e', as', t:ts)
go as a = (a, as, [])
collectArgsTicksBenchmarks :: Expr -> [Benchmark]
--
GitLab