Fix update-file to support paths (#139)

* fix update-file to support paths

* rename argument to path

* add changelog

CHANGELOG.md

@@ -4,6 +4,8 @@ For a list of breaking changes, check [here](#breaking-changes).
 
 Babashka [fs](https://github.com/babashka/fs): file system utility library for Clojure
 
+- [#138](https://github.com/babashka/fs/issues/138): Fix `fs/update-file` to support paths ([@rfhayashi](https://github.com/rfhayashi))
+
 ## v0.5.24 (2025-01-09)
 
 - [#135](https://github.com/babashka/fs/issues/135): additional fix for preserving protocol when calling `fs/path` on multiple arguments ([@Sohalt](https://github.com/Sohalt))

src/babashka/fs.cljc

@@ -1248,17 +1248,17 @@
   Options:
 
   * `:charset` - charset of file, default to \"utf-8\""
-  {:arglists '([file f & xs] [file opts f & xs])}
-  ([file f & xs]
+  {:arglists '([path f & xs] [path opts f & xs])}
+  ([path f & xs]
    (let [[opts f xs] (if (map? f)
                        [f (first xs) (rest xs)]
                        [nil f xs])
          {:keys [charset]
           :or {charset "utf-8"}} opts
          opts [:encoding charset]
-         old-val (apply slurp file opts)
+         old-val (apply slurp (as-file path) opts)
          new-val (apply f old-val xs)]
-     (apply spit file new-val opts)
+     (apply spit (as-file path) new-val opts)
      new-val)))
 
 (defn unixify

test/babashka/fs_test.clj

@@ -779,7 +779,11 @@
 
   (let [file (fs/file (fs/temp-dir) (str (gensym)))]
     (spit file ", ")
-    (is (= "foo, bar, baz" (fs/update-file file str/join ["foo" "bar" "baz"])))))
+    (is (= "foo, bar, baz" (fs/update-file file str/join ["foo" "bar" "baz"]))))
+
+  (let [path (fs/path (fs/file (fs/temp-dir) (str (gensym))))]
+    (spit (fs/file path) "foo")
+    (is (= "foobar" (fs/update-file path str "bar")))))
 
 (deftest unixify-test
   (when windows?