Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-26 02:11:53 +00:00
Code Issues Packages Projects Releases Wiki Activity

Apply suggestions from code review

Browse Source 
Remove unused code

Co-authored-by: Lucy C <12953208+elvece@users.noreply.github.com>
This commit is contained in:
Keagan McClelland
2021-09-29 13:30:27 -06:00
parent affb120bf8
commit 468b65f43c
1 changed files with 0 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/Handler/Apps.hs
View File

@@ -112,11 +112,6 @@ getAppR file = do
addHeader "Content-Length" (show len) addHeader "Content-Length" (show len)
respondSource typeOctet $ src .| awaitForever sendChunkBS 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 :: PkgId -> Version -> Handler ()
recordMetrics pkg appVersion = do recordMetrics pkg appVersion = do