Defining local storage for repositories.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2017-06-01 15:57:15 +00:00
parent 8aa5b42f94
commit 5c86e98aae

View File

@ -7,7 +7,8 @@ Class {
#name : #FossilRepo, #name : #FossilRepo,
#superclass : #Object, #superclass : #Object,
#instVars : [ #instVars : [
'url' 'url',
'local'
], ],
#category : #Fossil #category : #Fossil
} }
@ -52,6 +53,16 @@ FossilRepo >> lastHashNumberFor: aFileName [
^ (self checkinsFor: aFileName) first at: 'uuid' ^ (self checkinsFor: aFileName) first at: 'uuid'
] ]
{ #category : #accessing }
FossilRepo >> local [
^ local
]
{ #category : #accessing }
FossilRepo >> local: aLocalFilePath [
local := aLocalFilePath
]
{ #category : #accessing } { #category : #accessing }
FossilRepo >> url [ FossilRepo >> url [
^ url ^ url