Apply hlint

This commit is contained in:
Julian Ospald 2022-03-17 21:09:35 +01:00
parent 84d01b1091
commit 71390c84da
Signed by: hasufell
GPG Key ID: 3786C5262ECB4A3F

View File

@ -143,7 +143,7 @@ printListResult no_color raw lr = do
)
$ lr
let cols =
foldr (\xs ys -> zipWith (:) xs ys) (cycle [[]]) rows
foldr (\xs ys -> zipWith (:) xs ys) (repeat []) rows
lengths = fmap (maximum . fmap strWidth) cols
padded = fmap (\xs -> zipWith padTo xs lengths) rows