From 53d1c6630afeed7e271a658e9f0eaf46d558250d Mon Sep 17 00:00:00 2001
From: rightfold <rightfold@gmail.com>
Date: Mon, 26 Dec 2016 02:45:16 +0100
Subject: [PATCH] Add return types more consistently

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

diff --git a/purspgpp b/purspgpp
index 04d8b5c..f5cecd6 100644
--- a/purspgpp
+++ b/purspgpp
@@ -74,8 +74,8 @@ multi sub process-query(libpq::Connection:D $conn, %mapping, Str:D $source --> S
     my $description = $conn.describe-prepared('');
     sub convert-types(Int:D @oids --> Str:D) {
         die "unknown oid: $_" unless %mapping{$_}:exists for @oids;
-        multi sub infix:<Tuple>() is assoc<right> { "Unit" }
-        multi sub infix:<Tuple>(Str:D $a) { $a }
+        multi sub infix:<Tuple>(--> Str:D) is assoc<right> { "Unit" }
+        multi sub infix:<Tuple>(Str:D $a --> Str:D) { $a }
         multi sub infix:<Tuple>(Str:D $a, Str:D $b --> Str:D) { "Tuple ($a) ($b)" }
         [Tuple] |@oids.map({%mapping{$_}}), "Unit";
     }