Skip to content
Browse files

Remove unused 'robust-read-project (superceded by 'robust-read-projec…

…t-blob
  • Loading branch information...
1 parent 880dfb1 commit dcacf74d126846574b30394a2a525d1d30880ed2 @Chouser Chouser committed
Showing with 0 additions and 14 deletions.
  1. +0 −14 src/leiningen/voom.clj
View
14 src/leiningen/voom.clj
@@ -384,20 +384,6 @@
;; Shhh...
(.setDynamic #'slurp)
(.setDynamic #'load-file)
-(defn robust-read-project
- [gitdir sha prj-path]
- (try
- ;; Hack to work around our crazy project.clj files
- (binding [slurp (patch-fn slurp "{}")
- load-file (patch-fn load-file {})]
- (read-project gitdir sha prj-path))
- (catch Exception e
- ;; 128 means git complained about
- ;; something. Probably a non-existant
- ;; project.clj at this sha.
- (when-not (= 128 (:exit (ex-data e)))
- (println "Ignoring error:" (pr-str e)))
- nil)))
(defn robust-read-proj-blob
[gitdir blob-sha]
;; Hack to work around crazy project.clj files

0 comments on commit dcacf74

Please sign in to comment.
Something went wrong with that request. Please try again.