haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-29 12:20:24 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

set Content Type of the uploaded snapshot.json file to proper 'application/json'

Browse Source
This commit is contained in:
Alexey Kuleshevich 2016-10-05 18:59:26 +03:00
parent 67baaef082
commit b9965e328d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Stackage/Database/Cron.hs
View File

@ -23,7 +23,7 @@ import Network.AWS (Credentials (Discover),
import Control.Monad.Trans.AWS (trying, _Error) import Control.Monad.Trans.AWS (trying, _Error)
import Network.AWS.Data.Body (toBody) import Network.AWS.Data.Body (toBody)
import Network.AWS.S3 (ObjectCannedACL (OPublicRead), import Network.AWS.S3 (ObjectCannedACL (OPublicRead),
poACL, putObject, poACL, poContentType, putObject,
BucketName(BucketName), BucketName(BucketName),
ObjectKey(ObjectKey)) ObjectKey(ObjectKey))
import Control.Lens (set, view) import Control.Lens (set, view)
@ -182,6 +182,7 @@ stackageServerCron = do
let key = ObjectKey "snapshots.json" let key = ObjectKey "snapshots.json"
po = po =
set poACL (Just OPublicRead) set poACL (Just OPublicRead)
$ set poContentType (Just "application/json")
$ putObject (BucketName "haddock.stackage.org") key (toBody snapshots) $ putObject (BucketName "haddock.stackage.org") key (toBody snapshots)
putStrLn $ "Uploading: " ++ tshow key putStrLn $ "Uploading: " ++ tshow key
eres <- runResourceT $ runAWS env $ trying _Error $ send po eres <- runResourceT $ runAWS env $ trying _Error $ send po