diff --git a/src/page-file.rkt b/src/page-file.rkt index 608e9c8..ab27146 100644 --- a/src/page-file.rkt +++ b/src/page-file.rkt @@ -60,8 +60,8 @@ `(span " Posted in " ,@(map (λ (article) - (define page-path (jp "/title" result)) - (define title (jp "/titleText" result page-path)) + (define page-path (jp "/title" article)) + (define title (jp "/titleText" article page-path)) `(a (@ (href ,(format "/~a/wiki/~a" wikiname page-path))) ,title)) smaller-article-list))