From 9072767ca295b0fae0bd5d9032ffdde5482033ad Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Fri, 30 Sep 2016 19:35:22 +0000
Subject: [PATCH] Getting JSON info string for a file name.

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

diff --git a/repository/Grafoscopio/FossilRepo.class.st b/repository/Grafoscopio/FossilRepo.class.st
index a1377a6..dac2ce4 100644
--- a/repository/Grafoscopio/FossilRepo.class.st
+++ b/repository/Grafoscopio/FossilRepo.class.st
@@ -12,6 +12,14 @@ Class {
 	#category : #'Grafoscopio-Model'
 }
 
+{ #category : #'as yet unclassified' }
+FossilRepo >> jsonStringFor: aFileName [
+	| queryForJSONData |
+	queryForJSONData := self url addPathSegments: #('json' 'finfo').
+	queryForJSONData queryAt: 'name' put: aFileName.
+	^ (ZnEasy get: queryForJSONData) contents.
+]
+
 { #category : #accessing }
 FossilRepo >> url [
 	^ url