make metrics specifc to apps

2026-03-26 02:11:53 +00:00 · 2020-06-22 15:44:41 -06:00
parent 25b1786808
commit dc078bfa31
4 changed files with 10 additions and 11 deletions
--- a/src/Handler/Apps.hs
+++ b/src/Handler/Apps.hs
@@ -97,7 +97,7 @@ getApp rootDir ext@(Extension appId) = do
                                    av <- runDB $ createAppVersion appKey' versionInfo
                                    pure (appKey', av)
                                Just v -> pure (appKey', entityKey v)
-                    runDB $ createMetric (Just appKey) (Just versionKey) appId'
+                    runDB $ createMetric appKey versionKey
                    sz <- liftIO $ fileSize <$> getFileStatus filePath
                    addHeader "Content-Length" (show sz)
                    respondSource typePlain $ CB.sourceFile filePath .| awaitForever sendChunkBS