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