Commit 17768571 authored by Ben Gamari's avatar Ben Gamari 🐢
Browse files

Fix loop

parent d71e9d72
......@@ -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]
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment