diff --git a/src/Handler/Apps.hs b/src/Handler/Apps.hs index 74ad59e..cc9a323 100644 --- a/src/Handler/Apps.hs +++ b/src/Handler/Apps.hs @@ -90,7 +90,7 @@ chunkIt :: FilePath -> HandlerFor AgentCtx TypedContent chunkIt fp = do sz <- liftIO $ fileSize <$> getFileStatus fp addHeader "Content-Length" (show sz) - respondSource typePlain $ CB.sourceFile fp .| awaitForever sendChunkBS + respondSource typeOctet $ CB.sourceFile fp .| awaitForever sendChunkBS recordMetrics :: String -> FilePath -> AppVersion -> HandlerFor AgentCtx () recordMetrics appId rootDir appVersion = do @@ -119,4 +119,4 @@ recordMetrics appId rootDir appVersion = do appVersion' <- runDB $ createAppVersion appKey' versionInfo >>= errOnNothing status500 "duplicate app version created" pure (appKey', appVersion') Just v -> pure (appKey', entityKey v) - runDB $ createMetric appKey versionKey \ No newline at end of file + runDB $ createMetric appKey versionKey