From abdb452a11af583788941ab45fe11eec82665d6f Mon Sep 17 00:00:00 2001
From: Keagan McClelland <keagan.mcclelland@gmail.com>
Date: Mon, 27 Jul 2020 16:12:55 -0600
Subject: [PATCH] octet-stream

---
 src/Handler/Apps.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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