From 04c28e0cecc4024e7a9be238048dfeda01c731ef Mon Sep 17 00:00:00 2001
From: Romain Beauxis <toots@rastageeks.org>
Date: Tue, 10 Jan 2017 22:39:30 -0600
Subject: [PATCH] Don't ditch first line of headers when reading icy client
 data..

---
 src/harbor/harbor.camlp4 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/harbor/harbor.camlp4 b/src/harbor/harbor.camlp4
index c80b7206d9..265732fd80 100644
--- a/src/harbor/harbor.camlp4
+++ b/src/harbor/harbor.camlp4
@@ -926,7 +926,7 @@ struct
             let lines =
               Pcre.split ~rex:(Pcre.regexp "[\r]?\n") s
             in
-            let headers = parse_headers (List.tl lines) in
+            let headers = parse_headers lines in
             handle_source_request ~port ~auth:true ~smethod:`Shout hprotocol
                                   h huri headers
           done