From 66b9c46e8011f199bc17a667dd832d3f9dbffab0 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Thu, 1 Apr 2021 17:10:56 -0500
Subject: [PATCH] Pinning NeoJSON versions to make it installable on GToolkit.

---
 .../BaselineOfFossil.class.st                 |  2 +-
 repository/Fossil/FossilRepo.class.st         | 23 -------------------
 2 files changed, 1 insertion(+), 24 deletions(-)

diff --git a/repository/BaselineOfFossil/BaselineOfFossil.class.st b/repository/BaselineOfFossil/BaselineOfFossil.class.st
index efd96c7..70e643a 100644
--- a/repository/BaselineOfFossil/BaselineOfFossil.class.st
+++ b/repository/BaselineOfFossil/BaselineOfFossil.class.st
@@ -16,7 +16,7 @@ BaselineOfFossil >> baseline: spec [
 		do: [ 
 			"Dependencies"
 			spec 
-				baseline: 'NeoJSON' with: [ spec repository: 'github://svenvc/NeoJSON/repository' ];
+				baseline: 'NeoJSON' with: [ spec repository: 'github://svenvc/NeoJSON:v17/repository' ];
 				baseline: 'OSSubprocess' with: [ spec repository: 'github://pharo-contributions/OSSubprocess:master/repository']";
 				baseline: 'ProcessWrapper' with: [ spec repository: 'github://hernanmd/ProcessWrapper/repository' ]".
 			
diff --git a/repository/Fossil/FossilRepo.class.st b/repository/Fossil/FossilRepo.class.st
index be98059..800bbcc 100644
--- a/repository/Fossil/FossilRepo.class.st
+++ b/repository/Fossil/FossilRepo.class.st
@@ -124,23 +124,6 @@ FossilRepo >> createPage: pageName [
 	^ NeoJSONReader fromString: (self jsonWikiDataFor: 'create/', pageName) 
 ]
 
-{ #category : #operation }
-FossilRepo >> downloadZippedInto: aFolder [
-	| zippedFileName zippedFile |
-	self remote ifNil: [ ^ self ].
-	zippedFileName := self remoteName , '.zip'.
-	zippedFile := FileLocator temp / zippedFileName.
-	GrafoscopioUtils 
-		downloadingFrom:  self remote /  'zip'
-		withMessage: 'Downloading zipped repository...'
-		into: aFolder.
-	aFolder / 'zip' renameTo:  zippedFileName.
-	^ zippedFile
-	
-			
-	
-]
-
 { #category : #wiki }
 FossilRepo >> fetchPage: pageName [
 	^ NeoJSONReader fromString: (self jsonWikiDataFor: 'get/', pageName) 
@@ -292,12 +275,6 @@ FossilRepo >> remote: anUrlString [
 	remote := anUrlString asUrl 
 ]
 
-{ #category : #utilities }
-FossilRepo >> remoteName [
-	self remote ifNil: [ ^ self ].
-	^ self remote asUrl segments last
-]
-
 { #category : #utilities }
 FossilRepo >> sanitize: aFileNameWithRelativePath [
 	"I dicern if my argument concerns to a versioned or an unversioned file,