devops: Prefix status report sections with a blank line.
authorMatt Birkholz <matt@birchwood-abbey.net>
Sun, 1 Oct 2017 17:24:42 +0000 (10:24 -0700)
committerMatt Birkholz <matt@birchwood-abbey.net>
Mon, 2 Oct 2017 01:10:52 +0000 (18:10 -0700)
src/devops/devops.scm

index a3b926e20ec49afe62de3690276e9a569bc3cfd8..e61b8855a88a7dbfdbdd9527c4727f20602018f3 100644 (file)
@@ -38,7 +38,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
         (lint (core-lint version (or (core-changes) '()) dirt)))
     (if (not (null? lint))
        (begin
-         (log "# "(project-name)" "(version-string version)":\n")
+         (log "\n# "(project-name)" "(version-string version)"\n")
          (write-lint lint)))))
 
 (define (plugin-status plugin dirt)
@@ -47,7 +47,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
         (lint (plugin-lint plugin version changes dirt)))
     (if (not (null? lint))
        (begin
-         (log "# "(plugin-name plugin)" "(version-string version)":\n")
+         (log "\n# "(plugin-name plugin)" "(version-string version)"\n")
          (write-lint lint)))))
 
 (define (write-lint lint)