thunderstrike/purescript-postgresql-client
thunderstrike/purescript-postgresql-client
2
0
Fork 0
generated from tpl/purs
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Default to stdout output in purspgpp

Browse Source
This commit is contained in:
rightfold 2016-12-25 00:06:34 +01:00
parent b4f8b5eaad
commit a36526e24f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
purspgpp
View File

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