Remove a thunk in index

nick8325 · Sep 20, 2017 · f07faf9 · f07faf9
1 parent a9be0df
commit f07faf9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Twee/Index.hs b/src/Twee/Index.hs
@@ -165,7 +165,7 @@ pref search prefix here fun var rest =
                 App f _ ->
                   case fun ! fun_id f of
                     Nil -> tryVar
-                    idx -> Frame ts idx tryVar
+                    idx -> Frame ts idx $! tryVar
                 _ ->
                   tryVar
               where