Reduce verbosity in build-remote.pl

This commit is contained in:
Eelco Dolstra 2015-03-04 16:27:42 +01:00
parent 71b0a3a86b
commit 9f3eb56b46
3 changed files with 8 additions and 0 deletions

View file

@ -13,6 +13,7 @@ our %EXPORT_TAGS = ( 'all' => [ qw( ) ] );
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT = qw( our @EXPORT = qw(
setVerbosity
isValidPath queryReferences queryPathInfo queryDeriver queryPathHash isValidPath queryReferences queryPathInfo queryDeriver queryPathHash
queryPathFromHashPart queryPathFromHashPart
topoSortPaths computeFSClosure followLinksToStorePath exportPaths importPaths topoSortPaths computeFSClosure followLinksToStorePath exportPaths importPaths

View file

@ -48,6 +48,11 @@ void init()
doInit(); doInit();
void setVerbosity(int level)
CODE:
verbosity = (Verbosity) level;
int isValidPath(char * path) int isValidPath(char * path)
CODE: CODE:
try { try {

View file

@ -16,6 +16,8 @@ binmode STDERR, ":encoding(utf8)";
my $debug = defined $ENV{NIX_DEBUG_HOOK}; my $debug = defined $ENV{NIX_DEBUG_HOOK};
setVerbosity(0); # make exportPath() less verbose
# General operation: # General operation:
# #