Defining local storage for repositories.

2017-06-01 15:57:15 +00:00 · 2017-06-01 15:57:15 +00:00 · 5c86e98aae
parent 8aa5b42f94
commit 5c86e98aae
1 changed files with 12 additions and 1 deletions
--- a/repository/Fossil/FossilRepo.class.st
+++ b/repository/Fossil/FossilRepo.class.st
@ -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