diff options
Diffstat (limited to 'module/calp/webdav/resource/file.scm')
| -rw-r--r-- | module/calp/webdav/resource/file.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/module/calp/webdav/resource/file.scm b/module/calp/webdav/resource/file.scm index e2fec9a5..0d85098c 100644 --- a/module/calp/webdav/resource/file.scm +++ b/module/calp/webdav/resource/file.scm @@ -4,6 +4,7 @@ :use-module (hnh util) :use-module (hnh util env) :use-module (hnh util path) + :use-module (hnh util type) :use-module (datetime) :use-module (ice-9 popen) :use-module (ice-9 rdelim) @@ -27,6 +28,11 @@ (root getter: root setter: set-root! init-value: "/" init-keyword: root:) (path getter: path setter: set-path! init-value: "/" init-keyword: path:)) +(define-method (initialize (self <file-resource>) args) + (next-method) + (typecheck (root self) string? "<file-resource>.root") + (typecheck (path self) string? "<file-resource>.path")) + (define-method (write (self <file-resource>) port) (display (format #f "#<<file-resource> name=~s, root=~s, path=~s>" |