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