From 8e37ccb1bca6e8147858716a1626a47a65abe679 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Thu, 22 Apr 2010 14:40:23 -0600 Subject: [PATCH] Adding .git to ignore list --- collects/planet/planet-archives.ss | 2 +- collects/setup/pack.ss | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/planet/planet-archives.ss b/collects/planet/planet-archives.ss index dd8480a3cd..248d7b1193 100644 --- a/collects/planet/planet-archives.ss +++ b/collects/planet/planet-archives.ss @@ -15,7 +15,7 @@ (filter-tree-by-pattern (directory->tree (CACHE-DIR) (lambda (x) - (not (regexp-match #rx"/(CVS|[.]svn)$" + (not (regexp-match #rx"/(CVS|[.]svn)|[.]git$" (path->string x)))) 4) (list id id id string->number string->number))) diff --git a/collects/setup/pack.ss b/collects/setup/pack.ss index 5ecee107fc..e2e5849e3c 100644 --- a/collects/setup/pack.ss +++ b/collects/setup/pack.ss @@ -178,7 +178,7 @@ (define (std-filter path) (let-values ([(base name dir?) (split-path path)]) (let ([name (path->bytes name)]) - (not (or (regexp-match #rx#"^(?:CVS|[.]svn|[.]cvsignore|compiled|doc)$" + (not (or (regexp-match #rx#"^(?:CVS|[.]svn|[.]git|[.]cvsignore|compiled|doc)$" name) (regexp-match #rx#"~$|^#.*#$|^[.]#" name) (regexp-match #rx#"[.]plt$" name))))))