From 650d5c39084c8bdbd06db0e299e7370df212f9a7 Mon Sep 17 00:00:00 2001 From: "wjak56@gmail.com" Date: Mon, 27 Jul 2015 15:26:28 -0400 Subject: [PATCH] fixed the bug again --- create_post.rkt | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/create_post.rkt b/create_post.rkt index b8353be..0bb4edf 100644 --- a/create_post.rkt +++ b/create_post.rkt @@ -200,11 +200,10 @@ (define (git-href post-name) (let ([convert-commit (commit->post-id post-name)]) (match - (map convert-commit (memf convert-commit - (current-commits))) - [(list-rest post-id _) post-id] + (current-commits)) + [(list-rest post-id _) (convert-commit post-id)] [x #f]))) ; Add or refresh a post id associated with that post name