From: Adrián Arroyo Calle <adrian.arroyocalle@gmail.com>
Date: Sun, 27 Dec 2020 13:11:09 +0000 (+0100)
Subject: Use phrase instead of forall
X-Git-Tag: v0.9.0~160^2~5
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=fc14d089b1d85987bc56dd99b5f1a465752d8675;p=scryer-prolog.git

Use phrase instead of forall
---

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]) :-