Default to stdout output in purspgpp

This commit is contained in:
rightfold 2016-12-25 00:06:34 +01:00
parent b4f8b5eaad
commit a36526e24f

View File

@ -79,7 +79,7 @@ sub process-query(libpq::Connection:D $conn, Str:D $source --> Str:D) {
"(Query \"\"\"$source\"\"\" :: Query ($parameters) ($fields))";
}
sub MAIN(Str $connection-string, IO(Cool) $in-file, IO(Cool) $out-file) {
sub MAIN(Str $connection-string, IO(Cool) $in-file, IO(Cool) $out-file = '-') {
my $conn = libpq::Connection.new($connection-string);
$out-file.spurt(process-module($conn, $in-file.slurp));
}