   (find-file (ar/bazel-out-dir)))
 
 (defun ar/bazel-genfiles-dir ()
-  (concat (ar/bazel-workspace-path) (format "%s-genfiles/" ar/bazel-gendir-prefix)))
+  (ar/bazel-linked-dpath "genfiles"))
 
 (defun ar/bazel-dired-genfiles-dir ()
   "Open WORKSPACE's bazel-genfiles directory."

  "Convert PATH to workspace-qualified package: /some/path/workspace/package/BUILD => //package."
  (replace-regexp-in-string (ar/bazel-workspace-path) "//" (s-chop-suffix "/" (file-name-directory (expand-file-name path)))))

(defun ar/bazel-bin-dir ()
  (concat (ar/bazel-workspace-path) (format "%s-bin/" ar/bazel-gendir-prefix)))

(defun ar/bazel-dired-bin-dir ()
  "Open WORKSPACE's bazel-bin directory."

  (find-file (ar/bazel-bin-dir)))

(defun ar/bazel-out-dir ()
  (ar/bazel-linked-dpath "out"))

(defun ar/bazel-dired-out-dir ()
  "Open WORKSPACE's bazel-out directory."
