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
(scs, e') = collectScsExp e
-- Collect supercombinators from binds, the rhss, and the expression,
-- and the rhss.
-- Collect supercombinators from binds, the rhss, and the expression.
--
-- > f = let
-- > sc = rhs