Better names for operations
This commit is contained in:
parent
a016c66c0a
commit
73c63fb81e
@ -12,11 +12,6 @@ Class {
|
|||||||
#category : #'Grafoscopio-Model'
|
#category : #'Grafoscopio-Model'
|
||||||
}
|
}
|
||||||
|
|
||||||
{ #category : #'as yet unclassified' }
|
|
||||||
FossilRepo >> hashNumberFor: aFileName [
|
|
||||||
^ (((self jsonDataFor: aFileName) at: 'payload') at: 'checkins') first at: 'uuid'
|
|
||||||
]
|
|
||||||
|
|
||||||
{ #category : #'as yet unclassified' }
|
{ #category : #'as yet unclassified' }
|
||||||
FossilRepo >> jsonDataFor: aFileName [
|
FossilRepo >> jsonDataFor: aFileName [
|
||||||
^ NeoJSONReader fromString: (self jsonStringFor: aFileName)
|
^ NeoJSONReader fromString: (self jsonStringFor: aFileName)
|
||||||
@ -30,6 +25,11 @@ FossilRepo >> jsonStringFor: aFileName [
|
|||||||
^ (ZnEasy get: queryForJSONData) contents.
|
^ (ZnEasy get: queryForJSONData) contents.
|
||||||
]
|
]
|
||||||
|
|
||||||
|
{ #category : #'as yet unclassified' }
|
||||||
|
FossilRepo >> lastHashNumberFor: aFileName [
|
||||||
|
^ (((self jsonDataFor: aFileName) at: 'payload') at: 'checkins') first at: 'uuid'
|
||||||
|
]
|
||||||
|
|
||||||
{ #category : #accessing }
|
{ #category : #accessing }
|
||||||
FossilRepo >> url [
|
FossilRepo >> url [
|
||||||
^ url
|
^ url
|
||||||
|
Loading…
Reference in New Issue
Block a user