From fc14d089b1d85987bc56dd99b5f1a465752d8675 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Adri=C3=A1n=20Arroyo=20Calle?= <adrian.arroyocalle@gmail.com>
Date: Sun, 27 Dec 2020 14:11:09 +0100
Subject: [PATCH] Use phrase instead of forall

---
 src/lib/http/http_server.pl | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/src/lib/http/http_server.pl b/src/lib/http/http_server.pl
index 18c06b86..ca401728 100644
--- a/src/lib/http/http_server.pl
+++ b/src/lib/http/http_server.pl
@@ -9,7 +9,6 @@
 :- use_module(library(iso_ext)).
 
 % TODO
-% - Query Params
 % - Cookies?
 % - HTTP Error Codes
 % - Improve code quality
@@ -132,8 +131,14 @@ default(Var, Default, Out) :-
     ;   Var = Out  
     ).
 
+header([]) --> [].
+header([Key-Value|Headers]) -->
+    format_("~s: ~s\r\n", [Key, Value]),
+    header(Headers).
+
 write_headers(Stream, Headers) :-
-    forall(member(Key-Value, Headers), format(Stream, "~s: ~s\r\n", [Key, Value])).
+    phrase(header(Headers), Cs),
+    format(Stream, "~s", [Cs]).
 
 overwrite_header(Key-Value, [], [Key-Value]).
 overwrite_header(Key-Value, [Header|Headers], [Header|HeadersOut]) :-
-- 
2.54.0