This commit is contained in:
Martin Fredin 2023-02-10 11:49:17 +01:00
parent 8688b303ac
commit 5956cdf121

View file

@ -199,8 +199,7 @@ collectScsExp = \case
where where
(scs, e') = collectScsExp e (scs, e') = collectScsExp e
-- Collect supercombinators from binds, the rhss, and the expression, -- Collect supercombinators from binds, the rhss, and the expression.
-- and the rhss.
-- --
-- > f = let -- > f = let
-- > sc = rhs -- > sc = rhs