From 435afaa0f90cf8a5cc301e2ab59306f120805bb3 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Fri, 30 Sep 2016 19:42:46 +0000
Subject: [PATCH] FossilRepo: Support for querying hash numbers given a file
 name.

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

diff --git a/repository/Grafoscopio/FossilRepo.class.st b/repository/Grafoscopio/FossilRepo.class.st
index 4c81d13..8c9bcf0 100644
--- a/repository/Grafoscopio/FossilRepo.class.st
+++ b/repository/Grafoscopio/FossilRepo.class.st
@@ -12,6 +12,11 @@ Class {
 	#category : #'Grafoscopio-Model'
 }
 
+{ #category : #'as yet unclassified' }
+FossilRepo >> hashNumberFor: aFileName [
+	^ (((self jsonDataFor: aFileName)  at: 'payload') at: 'checkins') first at: 'uuid'
+]
+
 { #category : #'as yet unclassified' }
 FossilRepo >> jsonDataFor: aFileName [
 	^ NeoJSONReader fromString: (self jsonStringFor: aFileName)