Merge pull request purescript#1118 from hdgarrood/psc-publish-warnings

paf31 · paf31 · commit b186d902eaf9 · 2015-05-13T17:33:57.000-07:00
psc-publish: Don't print "Warnings:" unless there are warnings
diff --git a/psc-publish/ErrorsWarnings.hs b/psc-publish/ErrorsWarnings.hs
@@ -256,10 +256,11 @@ renderWarnings =
   where
   collectWarnings patterns warns =
     let boxes = mapMaybe (collectWarnings' warns) patterns
-    in  vcat
-      [ para "Warnings:"
-      , indented (vcat (intersperse spacer boxes))
-      ]
+        result = vcat
+                    [ para "Warnings:"
+                    , indented (vcat (intersperse spacer boxes))
+                    ]
+    in if null boxes then nullBox else result
 
   getResolutionNotVersion (ResolutionNotVersion n) = Just n
   getResolutionNotVersion _ = Nothing
