maybe it does
This commit is contained in:
parent
3464ecab85
commit
8d0b13a303
1 changed files with 0 additions and 19 deletions
|
@ -1,19 +0,0 @@
|
|||
:- http_handler(
|
||||
root(products),
|
||||
products_page,
|
||||
[]
|
||||
).
|
||||
|
||||
% POST /products
|
||||
products_page(Request) :-
|
||||
member(method(post), Request), !,
|
||||
http_read_data(Request, Json, []),
|
||||
json_to_prolog(Json, product(Name, Price)),
|
||||
assert_product(Name, Price),
|
||||
reply_json(Json).
|
||||
|
||||
% GET /products
|
||||
products_page(_Request) :-
|
||||
bagof(product(Name, Price), product(Name, Price), Products),
|
||||
prolog_to_json(Products, Json),
|
||||
reply_json(Json, []).
|
Loading…
Reference in a new issue