Getting JSON info string for a file name.

2016-09-30 19:35:22 +00:00 · 2016-09-30 19:35:22 +00:00 · 9072767ca2
parent 3c873e2475
commit 9072767ca2
1 changed files with 8 additions and 0 deletions
--- a/repository/Grafoscopio/FossilRepo.class.st
+++ b/repository/Grafoscopio/FossilRepo.class.st
@ -12,6 +12,14 @@ Class {
 	#category : #'Grafoscopio-Model'
 }

+{ #category : #'as yet unclassified' }
+FossilRepo >> jsonStringFor: aFileName [
+	| queryForJSONData |
+	queryForJSONData := self url addPathSegments: #('json' 'finfo').
+	queryForJSONData queryAt: 'name' put: aFileName.
+	^ (ZnEasy get: queryForJSONData) contents.
+]
+
 { #category : #accessing }
 FossilRepo >> url [
 	^ url