diff --git a/repository/Fossil/FossilRepo.class.st b/repository/Fossil/FossilRepo.class.st index da65297..0b41788 100644 --- a/repository/Fossil/FossilRepo.class.st +++ b/repository/Fossil/FossilRepo.class.st @@ -444,6 +444,19 @@ FossilRepo >> repository: aFossilRepoFile [ repository := aFossilRepoFile "fullName" ] +{ #category : #operation } +FossilRepo >> revert: aRelativeFilePath [ + "I add a file to the working Fossil repository, given that both, the file and the repositor, + share the same root directory/folder." + + OSSUnixSubprocess new + command: self class locateExecutable; + arguments: { 'revert' . aRelativeFilePath }; + workingDirectory: self localRoot; + redirectStdout; + runAndWaitOnExitDo: [ :process :outString | ^ outString ] +] + { #category : #accessing } FossilRepo >> revertRemoteUnversioned [