Revert "fix(lint): replace HLint suppressions with the actual fixes where safe"

This reverts commit 76076a1.

Author: claude

src/Pages/Replay.hs

@@ -577,12 +577,6 @@ maxFilesPerMerge = 25
 -- | Upload the events for one replay message. Takes the events sub-tree as
 -- raw JSON bytes (already validated as a JSON value by the splitter) and
 -- streams them straight into MinIO with no AE.encode round-trip.
---
--- The HLint "Use alternative" hint suggests dropping the @BL.@ qualifier
--- on @BL.fromStrict@. That is wrong here: Relude's unqualified
--- @fromStrict@ is @Data.Text.Lazy.fromStrict :: Text -> LText@, not
--- @Data.ByteString.Lazy.fromStrict :: ByteString -> LByteString@, so the
--- naive refactor breaks the build. Keep the qualifier; suppress the hint.
 {-# ANN saveReplayMinio ("HLint: ignore Use alternative" :: String) #-}
 saveReplayMinio :: (DB es, Log :> es, Time :> es) => EnvConfig -> Pool Connection -> Text -> ReplayPayload -> Eff es (Maybe Text)
 saveReplayMinio envCfg jobsPool ackId payload = do

src/Pkg/EmailTemplates.hs

@@ -450,6 +450,8 @@ logPatternRateChangeEmail projectName issueUrl patternText logLevel serviceName
 
 -- | Summary digest body for the hourly notification flush (rate-limited
 -- overflow + low-signal issues). Subject is built at the call site.
+{-# ANN digestEmail ("HLint: ignore Use 'unlines' from Relude" :: String) #-}
+{-# ANN digestEmail ("HLint: ignore Use 'lines' from Relude" :: String) #-}
 digestEmail :: Text -> Text -> Text -> Int -> Html ()
 digestEmail projectName inboxUrl summary total = emailBody do
   h1_ "Batched notifications"
@@ -462,8 +464,8 @@ digestEmail projectName inboxUrl summary total = emailBody do
   emailDivider
   pre_ [style_ "font-family: monospace; font-size: 13px; white-space: pre-wrap; margin: 0 0 16px 0;"]
     $ toHtml
-    $ unlines
-    $ map stripSummaryBadges (lines summary)
+    $ T.unlines
+    $ map stripSummaryBadges (T.lines summary)
   emailButton inboxUrl "Open inbox"
 
 

src/Web/ApiHandlers.hs

@@ -1134,6 +1134,7 @@ apiMemberRemove pid uid = do
 -- The response is always a JSON object keyed by field path, each value a
 -- @[{value, count}]@ list sorted by count descending. Missing/expired
 -- facets return @{}@ (not 404) — agents can rely on the shape regardless.
+{-# ANN apiFacets ("HLint: ignore Use id" :: String) #-}
 apiFacets :: Projects.ProjectId -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> ATBaseCtx AE.Value
 apiFacets pid sinceM fromM toM fieldM = do
   now <- Time.currentTime
@@ -1146,7 +1147,7 @@ apiFacets pid sinceM fromM toM fieldM = do
       -- `resource___service___name`); the public API contract is dotted.
       dotKey = AEK.fromText . T.replace "___" "." . AEK.toText
       asAeson = case AE.toJSON facetMap of
-        AE.Object o -> AE.Object (AEKM.mapKeyVal dotKey id o)
+        AE.Object o -> AE.Object (AEKM.mapKeyVal dotKey (\x -> x) o)
         v -> v
       filtered = case (fieldM, asAeson) of
         (Just f, AE.Object o) ->