suzanne.soy/pasterack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

dont crash site when recent paste gets deleted

Browse Source
This commit is contained in:
pasterack 2016-01-11 17:36:44 -05:00
parent f320b768b1
commit d32d9086bc
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pasterack.rkt
View File

@ -368,7 +368,8 @@
(table ((style "margin-top:-15px;font-size:95%")) (table ((style "margin-top:-15px;font-size:95%"))
,@(reverse ,@(reverse
(with-redis-connection (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 name (HGET/str pnum 'name))
(define trunc-name (define trunc-name
(string-truncate name PASTE-TITLE-DISPLAY-LEN)) (string-truncate name PASTE-TITLE-DISPLAY-LEN))