guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

12/12: gnu: netsurf: Remove tabulations in source.


From: guix-commits
Subject: 12/12: gnu: netsurf: Remove tabulations in source.
Date: Tue, 26 May 2020 16:18:03 -0400 (EDT)

bavier pushed a commit to branch master
in repository guix.

commit cfdefb863c274ecdbd452836364e68e1028c7bb1
Author: Eric Bavier <address@hidden>
AuthorDate: Tue May 26 15:15:10 2020 -0500

    gnu: netsurf: Remove tabulations in source.
    
    * gnu/packages/web.scm (netsurf): Remove tabulations.
---
 gnu/packages/web.scm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm
index d8290ff..66774c4 100644
--- a/gnu/packages/web.scm
+++ b/gnu/packages/web.scm
@@ -5322,18 +5322,18 @@ w3c webidl files and a binding configuration file.")
                  (display (read-line in 'concat) out)
                  (sxml->xml
                   (let rec ((sxml (xml->sxml in
-                                            #:default-entity-handler
-                                            (lambda (port name)
-                                              (string-append "<ENTITY>"
-                                                             (symbol->string 
name)
-                                                             "</ENTITY>")))))
+                                             #:default-entity-handler
+                                             (lambda (port name)
+                                               (string-append "<ENTITY>"
+                                                              (symbol->string 
name)
+                                                              "</ENTITY>")))))
                     ;; We'd like to use sxml-match here, but it can't
                     ;; match against generic tag symbols...
                     (match sxml
                       (`(div (@ (class "links")) . ,rest)
                        '())
-                     (`(ENTITY ,ent)
-                      `(*ENTITY* ,ent))
+                      (`(ENTITY ,ent)
+                       `(*ENTITY* ,ent))
                       ((x ...)
                        (map rec x))
                       (x x)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]