devops: Punt redundant file-first-line. Use read-first-line.

diff --git a/src/devops/build.scm b/src/devops/build.scm
index a2a326aca256e8c4e922410795328d6ba9e49310..2403d61a3b80fa59cecf1b43e3664b685fe85f00 100644 (file)
--- a/src/devops/build.scm
+++ b/src/devops/build.scm
@@ -288,13 +288,6 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 (define (file-lines . strings)
   (call-with-input-file (apply string strings) read-lines))
 
-(define (file-first-line filename)
-  (call-with-input-file filename
-    (lambda (in)
-      (let ((line (read-line in)))
-       (and (string? line)
-            line)))))
-
 (define (read-lines port)
   (let loop ((lines '()))
     (let ((line (read-line port)))

diff --git a/src/devops/devops.scm b/src/devops/devops.scm
index c0d3c9731fa9563ac5164475033da19e9ef7a11b..0ac0b380f3eebea43805e868d9ce05b6d2fddeb5 100644 (file)
--- a/src/devops/devops.scm
+++ b/src/devops/devops.scm
@@ -111,7 +111,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 (define (debian-version dir)
   (let* ((changelog (string dir"/debian/changelog"))
         (line (and (file-exists? changelog)
-                   (file-first-line changelog)))
+                   (read-first-line changelog)))
         (match (and line
                     (regsexp-match-string debian-changelog-version-pattern
                                           line))))