From 93f8c7be2426fb5e17e9a8523ae9f98bdebf66df Mon Sep 17 00:00:00 2001
From: Keagan McClelland <keagan.mcclelland@gmail.com>
Date: Wed, 29 Sep 2021 13:30:27 -0600
Subject: [PATCH] Apply suggestions from code review

Remove unused code

Co-authored-by: Lucy C <12953208+elvece@users.noreply.github.com>
---
 src/Handler/Apps.hs | 5 -----
 1 file changed, 5 deletions(-)

diff --git a/src/Handler/Apps.hs b/src/Handler/Apps.hs
index 9ba31f3..972bd3a 100644
--- a/src/Handler/Apps.hs
+++ b/src/Handler/Apps.hs
@@ -112,11 +112,6 @@ getAppR file = do
     addHeader "Content-Length" (show len)
     respondSource typeOctet $ src .| awaitForever sendChunkBS
 
-chunkIt :: FilePath -> Handler TypedContent
-chunkIt fp = do
-    sz <- liftIO $ fileSize <$> getFileStatus fp
-    addHeader "Content-Length" (show sz)
-    respondSource typeOctet $ CB.sourceFile fp .| awaitForever sendChunkBS
 
 recordMetrics :: PkgId -> Version -> Handler ()
 recordMetrics pkg appVersion = do