Getting JSON info string for a file name.
This commit is contained in:
parent
3c873e2475
commit
9072767ca2
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user