From ebaebab4f664b3c24f424046820af88b5abce937 Mon Sep 17 00:00:00 2001
From: HLAD Nicolas <nicolas.hlad@carl.eu>
Date: Mon, 4 Nov 2024 16:55:07 +0100
Subject: [PATCH] revert date for pharo 11 compatibility

---
 src/GitLabHealth-Model-Analysis/GitMetricExporter.class.st | 2 +-
 src/GitLabHealth-Model-Analysis/Metric.class.st            | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/GitLabHealth-Model-Analysis/GitMetricExporter.class.st b/src/GitLabHealth-Model-Analysis/GitMetricExporter.class.st
index c0381cb..a5bcf12 100644
--- a/src/GitLabHealth-Model-Analysis/GitMetricExporter.class.st
+++ b/src/GitLabHealth-Model-Analysis/GitMetricExporter.class.st
@@ -370,7 +370,7 @@ GitMetricExporter >> generateUsersAnalysesDuringPeriod: period over: aDateWeekMo
 	^ self userEntities collect: [ :user |
 		  userAnalysisReport := UserAnalysisReport new
 			                        username: user name;
-											email: (user email ifNil: #public_email);
+											email: (user email ifNil: [ user public_email]);
 			                        period: period;
 			                        over: aDateWeekMonthOrYear.
 
diff --git a/src/GitLabHealth-Model-Analysis/Metric.class.st b/src/GitLabHealth-Model-Analysis/Metric.class.st
index fa908bf..5643853 100644
--- a/src/GitLabHealth-Model-Analysis/Metric.class.st
+++ b/src/GitLabHealth-Model-Analysis/Metric.class.st
@@ -86,7 +86,7 @@ Metric >> setupGroupedDate [
 		over := #day ].
 
 
-	[ groupedByDate keys last asDate asDateAndTime < end ] whileTrue: [
+	[ groupedByDate keys last asDateAndTime < end ] whileTrue: [
 		| index |
 		index := groupedByDate keys last asDateAndTime
 		         + (increment perform: overSymbol).