dont crash site when recent paste gets deleted

This commit is contained in:
pasterack 2016-01-11 17:36:44 -05:00
parent f320b768b1
commit d32d9086bc

View File

@ -368,7 +368,8 @@
(table ((style "margin-top:-15px;font-size:95%"))
,@(reverse
(with-redis-connection
(for/list ([pnum recent-pastes] #:when pnum)
(for/list ([pnum recent-pastes] #:when pnum
#:when (HGET/str pnum 'name))
(define name (HGET/str pnum 'name))
(define trunc-name
(string-truncate name PASTE-TITLE-DISPLAY-LEN))