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