From 22f716669a9c4aa0efb50ec8c3e6edfd4c5b5653 Mon Sep 17 00:00:00 2001
From: Mike Pilgrem <mpilgrem@users.noreply.github.com>
Date: Sun, 14 Jan 2024 17:40:23 +0000
Subject: [PATCH] Use curator rather than c, as meaningful local identifier

---
 src/Stack/Types/Curator.hs | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/src/Stack/Types/Curator.hs b/src/Stack/Types/Curator.hs
index 26ce738ebe..6dd76c4664 100644
--- a/src/Stack/Types/Curator.hs
+++ b/src/Stack/Types/Curator.hs
@@ -36,15 +36,15 @@ data Curator = Curator
   deriving Show
 
 instance ToJSON Curator where
-  toJSON c = object
-    [ "skip-test" .= Set.map CabalString c.skipTest
-    , "expect-test-failure" .= Set.map CabalString c.expectTestFailure
-    , "skip-bench" .= Set.map CabalString c.skipBenchmark
+  toJSON curator = object
+    [ "skip-test" .= Set.map CabalString curator.skipTest
+    , "expect-test-failure" .= Set.map CabalString curator.expectTestFailure
+    , "skip-bench" .= Set.map CabalString curator.skipBenchmark
     , "expect-benchmark-failure" .=
-        Set.map CabalString c.expectTestFailure
-    , "skip-haddock" .= Set.map CabalString c.skipHaddock
+        Set.map CabalString curator.expectTestFailure
+    , "skip-haddock" .= Set.map CabalString curator.skipHaddock
     , "expect-haddock-failure" .=
-        Set.map CabalString c.expectHaddockFailure
+        Set.map CabalString curator.expectHaddockFailure
     ]
 
 instance FromJSON (WithJSONWarnings Curator) where