Exeption not thrown when from-path does not exist in fileset

[martinklepsch]

if-let below will always be true.

  (mv [this from-path to-path]
    (if (= from-path to-path)
      this
      (if-let [f (assoc (get-in this [:tree from-path]) :path to-path)]
        (update-in this [:tree] #(-> % (assoc to-path f) (dissoc from-path)))
        (throw (Exception. (format "not in fileset (%s)" from-path))))))

[micha]

@martinklepsch good catch! :)