From 8d57ef4f3073774b39d7d0dd8e68e461c6a62220 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sat, 23 Dec 2017 19:51:23 +0000
Subject: DBIish wants strings

---
 lib/Ultramarine/Model/DB.pm6 | 6 +++---
 1 file 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;
     }
 }
-- 
cgit v1.2.3