diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-09 15:44:44 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-09 16:27:31 +0200 |
commit | e2a602d16dfad5325960dec0a16ee2b88560a36f (patch) | |
tree | e076260a831ef3471f45b07d516410eb891299d7 /module/vcomponent/search.scm | |
parent | Can create events with åäö again. (diff) | |
download | calp-e2a602d16dfad5325960dec0a16ee2b88560a36f.tar.gz calp-e2a602d16dfad5325960dec0a16ee2b88560a36f.tar.xz |
Add basic (semi broken) paginator to HTML search.
Diffstat (limited to 'module/vcomponent/search.scm')
-rw-r--r-- | module/vcomponent/search.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/vcomponent/search.scm b/module/vcomponent/search.scm index e92e166f..5cb91e51 100644 --- a/module/vcomponent/search.scm +++ b/module/vcomponent/search.scm @@ -40,9 +40,9 @@ ;; (event → bool), (stream event), (() → Any) → (paginated-stream event) (define*-public (execute-query query page key: - time-out-handler + ;; time-out-handler (time-limit 1)) - (catch #t + (catch 'not-an-actual-error ; 'timed-out (lambda () (call-with-time-limit time-limit |