Browse Source

fix bug where it was not realizing the post got updated, and thought it

was new
master
wjak56@gmail.com 10 years ago
parent
commit
552f6f4093
  1. 8
      create_post.rkt

8
create_post.rkt

@ -198,14 +198,14 @@
; Grab a post id given a post name ; Grab a post id given a post name
; Return false if it does not exist ; Return false if it does not exist
(define (git-href post-name) (define (git-href post-name)
(let ([get-post-id (commit->post-id post-name)]) (let ([convert-commit (commit->post-id post-name)])
(match (match
(get-post-id (map convert-commit
(memf (memf
get-post-id convert-commit
(current-commits))) (current-commits)))
[(list-rest post-id _) post-id] [(list-rest post-id _) post-id]
[_ #f]))) [x #f])))
; Add or refresh a post id associated with that post name ; Add or refresh a post id associated with that post name
(define (git-set! post-name post-id) (define (git-set! post-name post-id)

Loading…
Cancel
Save