From: matteob8 <matteob8@yahoo.it>
Date: Mon, 21 Apr 2025 17:13:20 +0000 (+0200)
Subject: Update http_server.pl
X-Git-Tag: v0.10.0~51^2~1
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=d79bc199b3e5a11046ad76edc8749ea182c76f9d;p=scryer-prolog.git

Update http_server.pl

Avoid overwriting of predicate and made explicit reference to the loading of library(http/http_server).
---

diff --git a/src/lib/http/http_server.pl b/src/lib/http/http_server.pl
index 4c22e497..1fd67b1a 100644
--- a/src/lib/http/http_server.pl
+++ b/src/lib/http/http_server.pl
@@ -17,6 +17,8 @@ as one HTTP method (in lowercase) and followed by a Route Match and a predicate
 which will handle the call.
 
 ```
+:- use_module(library(http/http_server)).
+
 text_handler(Request, Response) :-
   http_status_code(Response, 200),
   http_body(Response, text("Welcome to Scryer Prolog!")).
@@ -24,10 +26,11 @@ text_handler(Request, Response) :-
 parameter_handler(User, Request, Response) :-
   http_body(Response, text(User)).
 
-http_listen(7890, [
-  get(echo, text_handler),                 % GET /echo
-  post(user/User, parameter_handler(User)) % POST /user/<User>
-]).
+top:-
+  http_listen(7890, [
+    get(echo, text_handler),                 % GET /echo
+    post(user/User, parameter_handler(User)) % POST /user/<User>
+  ]).
 ```
 
 Every handler predicate will have at least 2-arity, with Request and Response.