@@ -256,10 +256,11 @@ renderWarnings =
256256 where
257257 collectWarnings patterns warns =
258258 let boxes = mapMaybe (collectWarnings' warns) patterns
259− in vcat
260− [ para "Warnings:"
261− , indented (vcat (intersperse spacer boxes))
262− ]
259+ result = vcat
260+ [ para "Warnings:"
261+ , indented (vcat (intersperse spacer boxes))
262+ ]
263+ in if null boxes then nullBox else result
263264
264265 getResolutionNotVersion (ResolutionNotVersion n) = Just n
265266 getResolutionNotVersion _ = Nothing