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

Hush hlint

Browse Source
This commit is contained in:
Bryan Richter 2024-04-03 15:48:10 +03:00
parent 9420272b55
commit 652b78ab6b
No known key found for this signature in database
GPG Key ID: B202264020068BFB
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Stackage/Database/Cron.hs
View File

@ -18,6 +18,7 @@ module Stackage.Database.Cron
import Conduit import Conduit
import Control.DeepSeq import Control.DeepSeq
import Control.SingleRun import Control.SingleRun
import Control.Lens ((?~))
import qualified Data.ByteString.Char8 as BS8 import qualified Data.ByteString.Char8 as BS8
import qualified Data.Conduit.Binary as CB import qualified Data.Conduit.Binary as CB
import Data.Conduit.Tar (FileInfo(..), FileType(..), untar) import Data.Conduit.Tar (FileInfo(..), FileType(..), untar)
@ -424,7 +425,7 @@ checkForDocs snapshotId snapName = do
display snapName display snapName
where where
prefix = textDisplay snapName <> "/" prefix = textDisplay snapName <> "/"
req bucketName = newListObjectsV2 (BucketName bucketName) & listObjectsV2_prefix .~ Just prefix req bucketName = newListObjectsV2 (BucketName bucketName) & listObjectsV2_prefix ?~ prefix
-- | This function records all package modules that have documentation available, the ones -- | This function records all package modules that have documentation available, the ones
-- that are not found in the snapshot reported back as an error. Besides being run -- that are not found in the snapshot reported back as an error. Besides being run
-- concurrently this function optimizes the SnapshotPackageId lookup as well, since that can -- concurrently this function optimizes the SnapshotPackageId lookup as well, since that can