diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-04-14 22:34:20 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-04-14 22:34:20 +0200 |
| commit | 794ac156f62c858b9316667616397d29f9cfb2a1 (patch) | |
| tree | 428c74d05c436803480b2bb6d09a84699a9fc792 | |
| parent | WebDAV Fail properly on bad body. (diff) | |
| download | calp-794ac156f62c858b9316667616397d29f9cfb2a1.tar.gz calp-794ac156f62c858b9316667616397d29f9cfb2a1.tar.xz | |
Allow compilation without sqlite3 module.
| -rw-r--r-- | module/vcomponent/data-stores/sqlite.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/module/vcomponent/data-stores/sqlite.scm b/module/vcomponent/data-stores/sqlite.scm index f26cd688..b5b566a8 100644 --- a/module/vcomponent/data-stores/sqlite.scm +++ b/module/vcomponent/data-stores/sqlite.scm @@ -1,5 +1,4 @@ (define-module (vcomponent data-stores sqlite) - :use-module (sqlite3) :use-module (oop goops) :use-module (vcomponent data-stores common) :use-module (srfi srfi-71) @@ -9,6 +8,13 @@ :use-module ((hnh util) :select (aif)) ) + +(catch 'misc-error + (lambda () + (use-modules (sqlite3)) + (provide 'data-store-sqlite)) + (lambda args 'no-op)) + ;; (define (sqlite-exec db str) ;; (display str) ;; ((@ (sqlite3) sqlite-exec) db str)) |