Smarten it up

sjakobi · Nov 5, 2019 · cce4098 · cce4098
1 parent ce0f71f
commit cce4098
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/prettyprinter/src/Data/Text/Prettyprint/Doc/Internal.hs b/prettyprinter/src/Data/Text/Prettyprint/Doc/Internal.hs
@@ -1468,7 +1468,7 @@ removeTrailingWhitespace = go (RecordedWhitespace [] 0)
     commitWhitespace is0 n0 = commitLines is0 . commitSpaces n0
       where
         commitLines [] = id
-        commitLines (i:is) = (\sds -> foldr (\_ -> SLine 0) sds is) . SLine i
+        commitLines (i:is) = foldr (\_ f -> SLine 0 . f) (SLine i) is
 
         commitSpaces 0 = id
         commitSpaces 1 = SChar ' '