fix(metrics): sort metrics

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