From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:50858) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1esQ4o-0000jo-3x for guix-patches@gnu.org; Sun, 04 Mar 2018 04:37:07 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1esQ4k-0005ma-6r for guix-patches@gnu.org; Sun, 04 Mar 2018 04:37:06 -0500 Received: from debbugs.gnu.org ([208.118.235.43]:35599) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1esQ4k-0005mL-3V for guix-patches@gnu.org; Sun, 04 Mar 2018 04:37:02 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1esQ4j-00089M-TK for guix-patches@gnu.org; Sun, 04 Mar 2018 04:37:01 -0500 Subject: [bug#30694] [PATCH] gnu: haskell-mode: Fix find emacs-stream elisp directory. Resent-Message-ID: Received: from eggs.gnu.org ([2001:4830:134:3::10]:50758) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1esQ44-0000eu-QF for guix-patches@gnu.org; Sun, 04 Mar 2018 04:36:21 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1esQ40-0005SF-Rx for guix-patches@gnu.org; Sun, 04 Mar 2018 04:36:20 -0500 Received: from mail-lf0-x229.google.com ([2a00:1450:4010:c07::229]:45782) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1esQ40-0005Rn-JN for guix-patches@gnu.org; Sun, 04 Mar 2018 04:36:16 -0500 Received: by mail-lf0-x229.google.com with SMTP id h127so17962368lfg.12 for ; Sun, 04 Mar 2018 01:36:16 -0800 (PST) From: Oleg Pykhalov Date: Sun, 4 Mar 2018 12:35:52 +0300 Message-Id: <20180304093552.17785-1-go.wigust@gmail.com> MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 30694@debbugs.gnu.org * gnu/packages/emacs.scm (haskell-mode)[arguments]: Find only directories with "\\.el$" in ‘el-dir’. --- gnu/packages/emacs.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm index 67bbb153f..815968e7e 100644 --- a/gnu/packages/emacs.scm +++ b/gnu/packages/emacs.scm @@ -614,7 +614,7 @@ process, passing on the arguments as command line arguments.") 'build 'pre-build (lambda* (#:key inputs #:allow-other-keys) (define (el-dir store-dir) - (match (find-files store-dir) + (match (find-files store-dir "\\.el$") ((f1 f2 ...) (dirname f1)) (_ ""))) -- 2.16.2