From d86e229702413246c33eff9300b8d6ccfb4d3000 Mon Sep 17 00:00:00 2001
From: rightfold <rightfold@gmail.com>
Date: Thu, 22 Dec 2016 23:02:02 +0100
Subject: [PATCH] Add out file parameter to purspgpp

---
 purspgpp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/purspgpp b/purspgpp
index 6ff6fa8..6398e89 100644
--- a/purspgpp
+++ b/purspgpp
@@ -75,7 +75,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) $filename) {
+sub MAIN(Str $connection-string, IO(Cool) $in-file, IO(Cool) $out-file) {
     my $conn = libpq::Connection.new($connection-string);
-    print process-module($conn, $filename.slurp);
+    $out-file.spurt(process-module($conn, $in-file.slurp));
 }