02/02: gnu: font-hack: Remove empty doc directory.

[???]

iyzsong pushed a commit to branch master
in repository guix.

commit b94ee996cea9fda51751ee7ebab6cf0f01aadfdd
Author: 8p8c <address@hidden>
Date:   Thu Oct 6 00:15:53 2016 +0300

    gnu: font-hack: Remove empty doc directory.
    
    * gnu/packages/fonts.scm (font-hack)[arguments]: Remove superfluous code
    in #:builder.
    
    Signed-off-by: 宋文武 <address@hidden>
---
 gnu/packages/fonts.scm |   11 ++---------
 1 file changed, 2 insertions(+), 9 deletions(-)

diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm
index fe6c227..e4456a4 100644
--- a/gnu/packages/fonts.scm
+++ b/gnu/packages/fonts.scm
@@ -837,22 +837,15 @@ glyph designs, not just an added slant.")
                                                              "unzip")
                                                   "/bin"))
                          (font-dir (string-append %output
-                                                  "/share/fonts/truetype"))
-                         (doc-dir  (string-append %output "/share/doc/"
-                                                  ,name "-" ,version)))
+                                                  "/share/fonts/truetype")))
                      (setenv "PATH" PATH)
                      (system* "unzip" (assoc-ref %build-inputs "source"))
 
                      (mkdir-p font-dir)
-                     (mkdir-p doc-dir)
                      (for-each (lambda (ttf)
                                  (copy-file ttf
                                             (string-append font-dir "/" ttf)))
-                               (find-files "." "\\.ttf$"))
-                     (for-each (lambda (doc)
-                                 (copy-file doc
-                                            (string-append doc-dir "/" doc)))
-                               (find-files "." "\\.txt$"))))))
+                               (find-files "." "\\.ttf$"))))))
     (native-inputs
      `(("source" ,source)
        ("unzip" ,unzip)))