mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2025-12-06 02:30:38 -08:00
Code Issues Projects Releases Packages Wiki Activity

log eventual network errors on QML auto reload for mobile

Browse source
This commit is contained in:
pls.153 2022-06-18 12:23:40 +02:00
parent 170548dbc8
commit 3cc11cbe4d
2 changed files with 12 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

9
examples/advanced-qml-auto-reload/lisp/qml-reload/auto-reload-mobile.lisp
View file

@ -37,9 +37,12 @@
(let ((secs 0)
(ini t))
(defun auto-reload-qml ()
(let ((curr/file (ignore-errors
(x:split (curl (x:cc *remote-ip* "cgi-bin/qml-last-modified.py"))
#.(coerce (list #\Return #\Newline) 'string)))))
(multiple-value-bind (curr/file error)
(ignore-errors
(x:split (curl (x:cc *remote-ip* "cgi-bin/qml-last-modified.py"))
#.(coerce (list #\Return #\Newline) 'string)))
(when error
(qlog :auto-reload-qml :error error))
(when (= 2 (length curr/file))
(destructuring-bind (curr file)
curr/file