fix query context refactor

Author: ericdallo

CHANGELOG.md

@@ -2,6 +2,8 @@
 
 ## Unreleased
 
+- fix query context refactor
+
 ## 0.17.1
 
 - Avoid crash MCP start if doesn't support some capabilities.

src/eca/features/context.clj

@@ -43,7 +43,7 @@
         allowed-files (f.index/filter-allowed all-files root-filename config)]
     allowed-files))
 
-(defn all-contexts [query config db*]
+(defn all-contexts [query db* config]
   (let [all-subfiles-and-dirs (into []
                                     (comp
                                      (map :uri)

src/eca/features/tools/filesystem.clj

@@ -34,7 +34,8 @@
 
 (defn ^:private read-file [arguments {:keys [db]}]
   (or (tools.util/invalid-arguments arguments (concat (path-validations db)
-                                                      [["path" fs/readable? "File $path is not readable"]]))
+                                                      [["path" fs/readable? "File $path is not readable"]
+                                                       ["path" (complement fs/directory?) "$path is a directory, not a file"]]))
       (let [line-offset (get arguments "line_offset")
             limit (or (get arguments "limit") read-file-max-lines)
             content (cond-> (slurp (fs/file (fs/canonicalize (get arguments "path"))))