From 5956cdf121c51053ad5353aa01996bad19be1a34 Mon Sep 17 00:00:00 2001
From: Martin Fredin <fredin.martin@gmail.com>
Date: Fri, 10 Feb 2023 11:49:17 +0100
Subject: [PATCH] Fix typo

---
 src/LambdaLifter.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/LambdaLifter.hs b/src/LambdaLifter.hs
index e8862a2..79f8230 100644
--- a/src/LambdaLifter.hs
+++ b/src/LambdaLifter.hs
@@ -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