@@ -256,10 +256,11 @@ renderWarnings =
257 collectWarnings patterns warns =
257 collectWarnings patterns warns =
258 let boxes = mapMaybe (collectWarnings' warns) patterns
258 let boxes = mapMaybe (collectWarnings' warns) patterns
259− in vcat
259+ result = vcat
260− [ para "Warnings:"
260+ [ para "Warnings:"
261− , indented (vcat (intersperse spacer boxes))
261+ , indented (vcat (intersperse spacer boxes))
263+ in if null boxes then nullBox else result
264 getResolutionNotVersion (ResolutionNotVersion n) = Just n
265 getResolutionNotVersion (ResolutionNotVersion n) = Just n
265 getResolutionNotVersion _ = Nothing
266 getResolutionNotVersion _ = Nothing