diff options
| author | Eric Bavier <bavier@member.fsf.org> | 2020-05-26 15:15:10 -0500 |
|---|---|---|
| committer | Eric Bavier <bavier@member.fsf.org> | 2020-05-26 15:15:10 -0500 |
| commit | cfdefb863c274ecdbd452836364e68e1028c7bb1 (patch) | |
| tree | 6a8a0f7be29ea91e41acd5e91b1448351c2fbbc5 | |
| parent | 5c133ca561acfc1a1b9fe6dfc03d2bd12784242c (diff) | |
| download | guix-cfdefb863c274ecdbd452836364e68e1028c7bb1.tar.gz | |
gnu: netsurf: Remove tabulations in source.
* gnu/packages/web.scm (netsurf): Remove tabulations.
| -rw-r--r-- | gnu/packages/web.scm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm index d8290ff53a..66774c4a2d 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))) |