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

Merge pull request #62 from Start9Labs/bugfix/eos-img-content-length

Browse Source 
fixes lack of content length in eos image download
This commit is contained in:
Lucy C
2021-10-14 12:50:02 -06:00
committed by GitHub
parent 4183eaa2db d3b2a8837d
commit ff5374b33e
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/Handler/Marketplace.hs
View File

@@ -108,6 +108,7 @@ import Network.HTTP.Types ( status400
)
import Protolude.Unsafe ( unsafeFromJust )
import Settings ( AppSettings(registryHostname, resourcesDir) )
import System.Directory ( getFileSize )
import System.FilePath ( (</>) )
import UnliftIO.Async ( concurrently
, mapConcurrently
@@ -124,6 +125,7 @@ import Yesod.Core ( HandlerFor
, ToTypedContent(..)
, TypedContent
, YesodRequest(..)
, addHeader
, getRequest
, getsYesod
, logWarn
@@ -321,6 +323,7 @@ getEosR = do
Nothing -> sendResponseStatus status404 (NotFoundE [i|EOS version satisfying #{spec}|])
Just r -> do
let imgPath = root </> show r </> "eos.img"
liftIO (getFileSize imgPath) >>= addHeader "Content-Length" . show
respondSource typeOctet (sourceFile imgPath .| awaitForever sendChunkBS)
getVersionLatestR :: Handler VersionLatestRes