From 652b78ab6bb675864d9259f1cf3952ea10d154e1 Mon Sep 17 00:00:00 2001 From: Bryan Richter Date: Wed, 3 Apr 2024 15:48:10 +0300 Subject: [PATCH] Hush hlint --- src/Stackage/Database/Cron.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/Stackage/Database/Cron.hs b/src/Stackage/Database/Cron.hs index 4e231ad..04ea847 100644 --- a/src/Stackage/Database/Cron.hs +++ b/src/Stackage/Database/Cron.hs @@ -18,6 +18,7 @@ module Stackage.Database.Cron import Conduit import Control.DeepSeq import Control.SingleRun +import Control.Lens ((?~)) import qualified Data.ByteString.Char8 as BS8 import qualified Data.Conduit.Binary as CB import Data.Conduit.Tar (FileInfo(..), FileType(..), untar) @@ -424,7 +425,7 @@ checkForDocs snapshotId snapName = do display snapName where 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 -- 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