Skip to content

Commit 8fe5adc

Browse files
dolioArya Irani
authored andcommitted
Mark apply1 inline
Apparently some recent changes caused the compiler to not inline it, which causes optcheck to fail.
1 parent 196abd1 commit 8fe5adc

File tree

1 file changed

+1
-0
lines changed

1 file changed

+1
-0
lines changed

unison-runtime/src/Unison/Runtime/Machine.hs

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -172,6 +172,7 @@ apply1 callback env threadTracker clo = do
172172
apply env mempty threadTracker stk k0 True ZArgs $ clo
173173
where
174174
k0 = CB $ Hook (\stk -> callback $ packXStack stk)
175+
{-# inline apply1 #-}
175176

176177
unitValue :: Val
177178
unitValue = BoxedVal $ unitClosure

0 commit comments

Comments
 (0)