@@ -508,7 +508,7 @@ everythingWithScope f g h i j = (f'', g'', h'', i'', \s -> snd . j'' s)
508508 g' :: S.Set Ident -> Expr -> r
509509 g' s (Literal l) = lit g'' s l
510510 g' s (UnaryMinus v1) = g'' s v1
511− g' s (BinaryNoParens op v1 v2) = g' s op <> g' s v1 <> g' s v2
511+ g' s (BinaryNoParens op v1 v2) = g'' s op <> g'' s v1 <> g'' s v2
512512 g' s (Parens v1) = g'' s v1
513513 g' s (OperatorSection op (Left v)) = g'' s op <> g'' s v
514514 g' s (OperatorSection op (Right v)) = g'' s op <> g'' s v