documentation alignment

HigherOrderCO · Oct 29, 2024 · 5e23caf · 5e23caf
1 parent d39513e
commit 5e23caf
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Kind/CompileJS.hs b/src/Kind/CompileJS.hs
@@ -199,8 +199,8 @@ removeUnreachables ct = go ct where
     CNul
 
 -- Lifts shareable lambdas across branches:
--- - from: λx match v { #Foo{a b}: (λy λz A) #Bar: (λy λz B) ... }
--- -   to: λx λy λz match v { #Foo{a b}: A #Bar: B ... }
+-- - from: λx       match v { #Foo{a b}: λy λz A #Bar: λy λz B ... }
+-- -   to: λx λy λz match v { #Foo{a b}:       A #Bar:       B ... }
 -- TODO: document why this is (and has to be) terrible
 liftLambdas :: [String] -> CT -> Int -> CT
 liftLambdas nms ct depth = gen (liftLen ct depth 0 0) [] ct depth where