From d86f523f040776e4e92b9fe14c0fd4793f7dd3bb Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 27 May 2014 10:22:25 -0700 Subject: [PATCH] fix inconsistent input contract --- template.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/template.rkt b/template.rkt index 0c89a0f..b4089b9 100644 --- a/template.rkt +++ b/template.rkt @@ -26,7 +26,7 @@ (define+provide/contract (select* key value-source) - (coerce/symbol? (or/c hash? txexpr?) . -> . (or/c #f (listof txexpr-element?))) + (coerce/symbol? (or/c hash? txexpr? pagenode? pathish?) . -> . (or/c #f (listof txexpr-element?))) (define metas-result (and (not (txexpr? value-source)) (select-from-metas key value-source))) (define doc-result (select-from-doc key value-source)) (define result (append (or (and metas-result (list metas-result)) null) (or doc-result null)))