File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change 29852985 (repeat warnings))
29862986 warnings)))
29872987 ana/*verbose* (:verbose opts)]
2988- (when ana/*verbose*
2988+ (when ( and ana/*verbose* ( not ( ::watch-triggered-build? opts)))
29892989 (util/debug-prn " Options passed to ClojureScript compiler:" (pr-str opts)))
29902990 (let [one-file? (and (:main opts)
29912991 (#{:advanced :simple :whitespace } (:optimizations opts)))
31283128 srvc (.newWatchService fs)]
31293129 (letfn [(buildf []
31303130 (try
3131- (let [start (System/nanoTime )]
3132- (build source opts compiler-env)
3131+ (let [start (System/nanoTime )
3132+ watch-opts (assoc opts ::watch-triggered-build? true )]
3133+ (build source watch-opts compiler-env)
31333134 (println " ... done. Elapsed"
31343135 (/ (unchecked-subtract (System/nanoTime ) start) 1e9 ) " seconds" )
31353136 (flush ))
You can’t perform that action at this time.
0 commit comments