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 : #'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
|
||||||
|
Loading…
Reference in New Issue
Block a user