[Pkg-haskell-commits] [package-plan] 03/03: Add “meta” attribute

[Joachim Breitner]

This is an automated email from the git hooks/post-receive script.

nomeata pushed a commit to branch yesod-scaffold
in repository package-plan.

commit efcabdb599a0ccfa4302a95d7ef6fe8c5ad52715
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Thu Aug 28 14:51:18 2014 -0700

    Add “meta” attribute
---
 packages.txt     |  1 +
 test-packages.pl | 12 ++++++++----
 2 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/packages.txt b/packages.txt
index 06e756a..03ff174 100644
--- a/packages.txt
+++ b/packages.txt
@@ -741,6 +741,7 @@ yesod-markdown 0.8.5
 yesod-newsfeed 1.2.1
 yesod-persistent 1.2.3 notest
 yesod-routes 1.2.0.7
+yesod-scaffold 0.0.0 meta
 yesod-static 1.2.4
 yesod-test 1.2.3.2
 yi 0.7.1
diff --git a/test-packages.pl b/test-packages.pl
index fc7b747..3ff38b4 100755
--- a/test-packages.pl
+++ b/test-packages.pl
@@ -19,6 +19,7 @@ my %available;
 my %ignored;
 my %notest;
 my %binary;
+my %meta;
 my %obsolete;
 my @flags;
 my %group;
@@ -53,6 +54,7 @@ while (<PACKAGES>) {
 	$binary{$pkg} = $1 if $attribs =~ s/binary=([a-z0-9-]+)\s*//;
 	$group{$pkg} = $1 if $attribs =~ s/group=([a-z0-9-]+)\s*//;
 	$binary{$pkg} = $pkg if $attribs =~ s/binary\s*//;
+	$meta{$pkg}++ if $attribs =~ s/meta\s*//;
 	push @flags, $1 while $attribs =~ s/(-f[^ ]+)\s*//;
 
 	if ($attribs) {
@@ -109,9 +111,11 @@ for my $pkg (sort keys %packages) {
 		$error_count++;
 		$stats{MISSING}++;
 	} elsif (! exists($available{$pkg})) {
-		printf "Added:    %s is %s here but does not exist in the archive.\n" ,
-			$pkg, $versions{$pkg};
-		$stats{Added}++;
+		unless (exists $meta{$pkg}) {
+			printf "Added:    %s is %s here but does not exist in the archive.\n" ,
+				$pkg, $versions{$pkg};
+			$stats{Added}++;
+		}
 	} elsif ( version_compare($versions{$pkg}, $available{$pkg}) == -1 ) {
 		printf "OLD:      %s is %s here but %s exists in the archive.\n" ,
 			$pkg, $versions{$pkg}, $available{$pkg};
@@ -121,7 +125,7 @@ for my $pkg (sort keys %packages) {
 		printf "Updated:  %s is %s in the archive but %s exists here.\n" ,
 			$pkg, $available{$pkg}, $versions{$pkg};
 		$stats{Updated}++;
- 	}
+	}
 }
 
 my $sandboxdir = cwd() . "/cabal-sandbox";

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-haskell/package-plan.git