From 63f818ff0362fadff15418b5bcf886c4148c58b4 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Fri, 18 Mar 2022 18:11:56 -0500
Subject: [PATCH] Implementing the `revert` command.

---
 repository/Fossil/FossilRepo.class.st | 13 +++++++++++++
 1 file changed, 13 insertions(+)

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 [