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

Add return types more consistently

Browse Source
This commit is contained in:
rightfold 2016-12-26 02:45:16 +01:00
parent c759418c67
commit 53d1c6630a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
purspgpp
View File

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