generated from tpl/purs
Default to stdout output in purspgpp
This commit is contained in:
parent
b4f8b5eaad
commit
a36526e24f
2
purspgpp
2
purspgpp
@ -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));
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user