start moving away from GsFile in RowanFileService

As part of work for GemTalk/Jadeite#986 Add new isDirectory command
GemTalk · Dec 16, 2022 · 1306448 · 1306448
1 parent 5d7dd8e
commit 1306448
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/rowan/src/Rowan-Services-Core/RowanFileService.class.st b/rowan/src/Rowan-Services-Core/RowanFileService.class.st
@@ -134,6 +134,14 @@ RowanFileService >> fileoutMethods: array [
 	self fileOut: ws on: path
 ]
 
+{ #category : 'client commands' }
+RowanFileService >> isDirectory [
+	| fileReference |
+	fileReference := FileReference fileSystem: FileSystem disk path: path asPath.
+	answer := fileReference isDirectory.
+	RowanCommandResult addResult: self
+]
+
 { #category : 'client commands' }
 RowanFileService >> isDirectory: directory [
 	answer := GsFile isServerDirectory: directory.