fixed the bug again

9 years ago · 650d5c3908
1 changed files with 2 additions and 3 deletions
--- 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