From 56472fadea90f3fae56749747f99dd0766c8a00f Mon Sep 17 00:00:00 2001 From: Mike Pilgrem Date: Sun, 11 Aug 2024 14:19:04 +0100 Subject: [PATCH] Remove redundant let --- src/Stack/Build/Execute.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Stack/Build/Execute.hs b/src/Stack/Build/Execute.hs index 4196efa68c..1df18efe1c 100644 --- a/src/Stack/Build/Execute.hs +++ b/src/Stack/Build/Execute.hs @@ -368,7 +368,7 @@ executePlan' :: HasEnvConfig env -> RIO env () executePlan' installedMap0 targets plan ee = do let !buildOpts = ee.buildOpts - let !testOpts = buildOpts.testOpts + !testOpts = buildOpts.testOpts when testOpts.coverage deleteHpcReports cv <- view actualCompilerVersionL whenJust (nonEmpty $ Map.toList plan.unregisterLocal) $ \ids -> do