Getting JSON info string for a file name.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2016-09-30 19:35:22 +00:00
parent 3c873e2475
commit 9072767ca2

View File

@ -12,6 +12,14 @@ Class {
#category : #'Grafoscopio-Model' #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 } { #category : #accessing }
FossilRepo >> url [ FossilRepo >> url [
^ url ^ url