From b9965e328dbd22319d389d49e9fb2c12d1354a85 Mon Sep 17 00:00:00 2001 From: Alexey Kuleshevich Date: Wed, 5 Oct 2016 18:59:26 +0300 Subject: [PATCH] set Content Type of the uploaded snapshot.json file to proper 'application/json' --- Stackage/Database/Cron.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Stackage/Database/Cron.hs b/Stackage/Database/Cron.hs index b9fe4c0..50ded6c 100644 --- a/Stackage/Database/Cron.hs +++ b/Stackage/Database/Cron.hs @@ -23,7 +23,7 @@ import Network.AWS (Credentials (Discover), import Control.Monad.Trans.AWS (trying, _Error) import Network.AWS.Data.Body (toBody) import Network.AWS.S3 (ObjectCannedACL (OPublicRead), - poACL, putObject, + poACL, poContentType, putObject, BucketName(BucketName), ObjectKey(ObjectKey)) import Control.Lens (set, view) @@ -182,6 +182,7 @@ stackageServerCron = do let key = ObjectKey "snapshots.json" po = set poACL (Just OPublicRead) + $ set poContentType (Just "application/json") $ putObject (BucketName "haddock.stackage.org") key (toBody snapshots) putStrLn $ "Uploading: " ++ tshow key eres <- runResourceT $ runAWS env $ trying _Error $ send po