fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix(metrics): sort metrics

Browse Source
This commit is contained in:
Gregor Kleen 2020-09-17 20:38:00 +02:00
parent dd235590b4
commit e5ae1521a0
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Handler/Metrics.hs
View File

@ -21,7 +21,8 @@ getMetricsR = selectRep $ do
where where
metricsHtml :: Handler Html metricsHtml :: Handler Html
metricsHtml = do 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 metricsBearer <- runMaybeT . hoist runDB $ do
uid <- MaybeT maybeAuthId uid <- MaybeT maybeAuthId