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

Fix path shortening for missing blame information.

Browse Source
This commit is contained in:
Vincent St-Amour 2014-02-03 13:49:22 -05:00
parent 68460e72c7
commit a13332f3ae
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkgs/contract-profile/utils.rkt
View File

@ -44,8 +44,9 @@
(blame-positive b) (blame-negative b) (blame-positive b) (blame-negative b)
(blame-contract b) (blame-value b) (blame-source b))) (blame-contract b) (blame-value b) (blame-source b)))
;; (sequenceof (U path-string? submodule-path)) -> same ;; (sequenceof (U path-string? submodule-path #f)) -> same
(define (shorten-paths ps) (define (shorten-paths ps*)
(define ps (for/list ([p ps*] #:when p) p)) ; remove non-paths
;; zeroth pass, chop off submodule parts, to put back later ;; zeroth pass, chop off submodule parts, to put back later
(define submodules ; (listof (U submodule-part #f)) (define submodules ; (listof (U submodule-part #f))
(for/list ([p ps]) (for/list ([p ps])