Don't print "Warnings:" unless there are warnings
commitf13cd3e26fbe6cf716ccacecafeebfc0103bd6d5
authorHarry Garrood <harry@garrood.me>
dateTue 12 May 2015, 16:28 (11 years ago)
parent918997a
psc-publish/ErrorsWarnings.hs+5−4
@@ -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