From 4eda6106568406ddac4eb20097d2b669d1a414f1 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sun, 17 Dec 2017 20:07:44 +0000
Subject: add xml text-decl

XML::Writer doesn't :(
---
 lib/Ultramarine/Serialiser/XML.pm6 | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/lib/Ultramarine/Serialiser/XML.pm6 b/lib/Ultramarine/Serialiser/XML.pm6
index 2d04427..5da79e9 100644
--- a/lib/Ultramarine/Serialiser/XML.pm6
+++ b/lib/Ultramarine/Serialiser/XML.pm6
@@ -16,12 +16,15 @@ class Ultramarine::Serialiser::XML
     }
 
     method serialize(Cro::HTTP::Message $message, $body --> Supply) {
-        my $xml = XML::Writer.serialize(
-            subsonic-response => [
-                :xmlns<http://subsonic.org/restapi>,
-                :version<1.13.0>,
-                |$body,
-            ],
+        my $xml = (
+            qq{<?xml version="1.0" encoding="UTF-8"?>\n} ~
+            XML::Writer.serialize(
+                subsonic-response => [
+                    :xmlns<http://subsonic.org/restapi>,
+                    :version<1.13.0>,
+                    |$body,
+                ],
+            )
         ).encode('utf-8');
         self!set-content-length($message, $xml.bytes);
         supply { emit $xml }
-- 
cgit v1.2.3