summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/Ultramarine/Model/DB.pm66
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Ultramarine/Model/DB.pm6 b/lib/Ultramarine/Model/DB.pm6
index 0845add..57a5f0b 100644
--- a/lib/Ultramarine/Model/DB.pm6
+++ b/lib/Ultramarine/Model/DB.pm6
@@ -33,7 +33,7 @@ class Ultramarine::Model::DB {
VALUES (?,?,?)
END
LEAVE { .finish with $sth }
- $sth.execute(%song<path mtime metadata>);
+ $sth.execute(%song<path mtime metadata>ยป.Str);
}
sub unpack-row(%song is copy) {
@@ -52,7 +52,7 @@ class Ultramarine::Model::DB {
WHERE path=?
END
LEAVE { .finish with $sth }
- $sth.execute($path);
+ $sth.execute($path.Str);
return unpack-row($sth.row(:hash));
}
@@ -79,7 +79,7 @@ class Ultramarine::Model::DB {
AND mtime >= $mtime
END
LEAVE { .finish with $sth };
- $sth.execute($path,$mtime);
+ $sth.execute($path.Str,$mtime);
return ($sth.row[0]//0).Bool;
}
}