Add show-requires, which is friendlier on the eyes than check-requires.

This commit is contained in:
Vincent St-Amour 2011-05-31 14:02:27 -04:00
parent 2e3e6822f3
commit b39f21775a

View File

@ -12,6 +12,7 @@
"private/util.rkt") "private/util.rkt")
(provide/contract (provide/contract
[check-requires (-> module-path? list?)] [check-requires (-> module-path? list?)]
[show-requires (-> module-path? list?)]
[add-disappeared-uses? (parameter/c boolean?)] [add-disappeared-uses? (parameter/c boolean?)]
[mpi->key (-> module-path-index? any/c)]) [mpi->key (-> module-path-index? any/c)])
@ -315,6 +316,21 @@ A recommendation is one of
(analyze deriv refs) (analyze deriv refs)
(nom-use-alg refs compiled)))) (nom-use-alg refs compiled))))
#|
A displayed-recommendation is one of
(list 'keep string phase string/#f)
(list 'bypass string phase)
(list 'drop string phase)
A displayed-recommendation is similar to a recommendation, but prints
out the module-path-index for easier user consumption.
|#
;; show-requires: module-path -> (listof displayed-recommendation)
(define (show-requires mod-path)
(map (match-lambda [(list-rest key mpi rest)
(list* key (mpi->key mpi) rest)])
(check-requires mod-path)))
#| #|
TODO TODO
==== ====