From e5ae1521a0577df35abe13b6bcc602f3a38a6f9c Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Thu, 17 Sep 2020 20:38:00 +0200
Subject: [PATCH] fix(metrics): sort metrics

---
 src/Handler/Metrics.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Handler/Metrics.hs b/src/Handler/Metrics.hs
index 0250e9851..cd1a6baa3 100644
--- a/src/Handler/Metrics.hs
+++ b/src/Handler/Metrics.hs
@@ -21,7 +21,8 @@ getMetricsR = selectRep $ do
   where
     metricsHtml :: Handler Html
     metricsHtml = do
-      samples <- collectMetrics
+      let metricSort = comparing $ \(SampleGroup Info{..} _ mSamples) -> (metricName, mSamples <&> \(Sample sampleName lbls _) -> (sampleName, lbls))
+      samples <- sortBy metricSort <$> collectMetrics
 
       metricsBearer <- runMaybeT . hoist runDB $ do
         uid <- MaybeT maybeAuthId