Better names for operations

This commit is contained in:
Offray Vladimir Luna Cárdenas 2016-10-01 15:38:03 +00:00
parent a016c66c0a
commit 73c63fb81e

View File

@ -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