14 lines
414 B
Factor
14 lines
414 B
Factor
|
! Copyright (C) 2008 Slava Pestov.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
IN: http.server.crud
|
||
|
|
USING: kernel namespaces db.tuples math.parser
|
||
|
|
http.server.actions accessors ;
|
||
|
|
|
||
|
|
: by-id ( class -- tuple )
|
||
|
|
construct-empty "id" get >>id ;
|
||
|
|
|
||
|
|
: <delete-action> ( class -- action )
|
||
|
|
<action>
|
||
|
|
{ { "id" [ string>number ] } } >>post-params
|
||
|
|
swap [ by-id delete-tuple f ] curry >>post ;
|