Commit 82c71b57 authored by dave griffiths's avatar dave griffiths

sync tests complete (raspberry pi)

parent 5db9fb68
......@@ -127,7 +127,6 @@
(define (entity-versions db table)
(let ((s (db-select
db (string-append "select unique_id, version from " table "_entity;"))))
(msg s)
(if (null? s)
'()
(map
......
......@@ -26,7 +26,7 @@
((boolean? v) (if v "#t" "#f"))
((list? v)
(cond
((null? v) "'()")
((null? v) "()")
(else
(list->txt v))))
(else (printf "scheme->txt, unsupported type for ~a~n" v) 0)))
......
......@@ -108,7 +108,7 @@
entity-type
unique-id
(string->number dirty)
(string->number version) data)))))))
(string->number version) (dbg data))))))))
;; returns a table of all entities and their corresponding versions
(register
......@@ -156,13 +156,13 @@
(register
(req 'file-list '())
(lambda ()
(lambda (req)
(syncro
(lambda ()
(msg "file-list")
(pluto-response
(scheme->txt
(dbg (directory-list "./htdocs/files/"))))))))
(dbg (scheme->txt
(map path->string (directory-list "files/")))))))))
))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment