HLint failed with status: 1. Error (9), Warning (15), Suggestion (10)

Error in fromCatalog in module Pkg.SchemaLearning.OpenApi: Use toText from Relude ▫︎ Found: "T.pack (show e.sampleCount)" ▫︎ Perhaps: "toText (show e.sampleCount)"

Error in fromCatalog in module Pkg.SchemaLearning.OpenApi: Relude show returns Text ▫︎ Found: "T.pack (show e.sampleCount)" ▫︎ Perhaps: "show e.sampleCount" ▫︎ Note: Relude's show already returns Text

Error in bumpTopK in module Pkg.SchemaLearning.Catalog: Use toText from Relude ▫︎ Found: "T.pack (show n)" ▫︎ Perhaps: "toText (show n)"

Error in bumpTopK in module Pkg.SchemaLearning.Catalog: Relude show returns Text ▫︎ Found: "T.pack (show n)" ▫︎ Perhaps: "show n" ▫︎ Note: Relude's show already returns Text

Error in templateHash in module Pkg.SchemaLearning.Catalog: Use toText from Relude ▫︎ Found: "T.pack (show fs.category)" ▫︎ Perhaps: "toText (show fs.category)"

Error in templateHash in module Pkg.SchemaLearning.Catalog: Relude show returns Text ▫︎ Found: "T.pack (show fs.category)" ▫︎ Perhaps: "show fs.category" ▫︎ Note: Relude's show already returns Text

Error in templateHash in module Pkg.SchemaLearning.Catalog: Relude show returns Text ▫︎ Found: "T.pack . show" ▫︎ Perhaps: "show" ▫︎ Note: Relude's show already returns Text

Error in templateHash in module Pkg.SchemaLearning.Catalog: Use toText from Relude ▫︎ Found: "T.pack (show kk)" ▫︎ Perhaps: "toText (show kk)"

Error in templateHash in module Pkg.SchemaLearning.Catalog: Relude show returns Text ▫︎ Found: "T.pack (show kk)" ▫︎ Perhaps: "show kk" ▫︎ Note: Relude's show already returns Text

The template is not valid. .github/workflows/pullrequest.yml (Line: 53, Col: 19): Unexpected value ''

Node.js 20 actions are deprecated. The following actions are running on Node.js 20 and may not work as expected: haskell-actions/hlint-run@v2, haskell-actions/hlint-setup@v2. Actions will be forced to run with Node.js 24 by default starting June 2nd, 2026. Node.js 20 will be removed from the runner on September 16th, 2026. Please check if updated versions of these actions are available that support Node.js 24. To opt into Node.js 24 now, set the FORCE_JAVASCRIPT_ACTIONS_TO_NODE24=true environment variable on the runner or in your workflow file. Once Node.js 24 becomes the default, you can temporarily opt out by setting ACTIONS_ALLOW_USE_UNSECURE_NODE_VERSION=true. For more information see: https://github.blog/changelog/2025-09-19-deprecation-of-node-20-on-github-actions-runners/

Suggestion in mkSlackLogPatternRateChangePayload in module Pkg.Mail: Use guards ▫︎ Found: "icon\n = if isError then\n \":rotating_light:\"\n else\n if direction == \"spike\" then\n \":chart_with_upwards_trend:\"\n else\n \":chart_with_downwards_trend:\"" ▫︎ Perhaps: "icon\n | isError = \":rotating_light:\"\n | direction == \"spike\" = \":chart_with_upwards_trend:\"\n | otherwise = \":chart_with_downwards_trend:\""

Warning in fetchMetricsData in module Pages.Charts.Charts: Redundant pure ▫︎ Found: "do let pool\n = case dbSource of\n Just \"postgres\" -> authCtx.pool\n Just \"timefusion\" -> authCtx.timefusionPgPool\n _ -> if authCtx.env.enableTimefusionReads then\n authCtx.timefusionPgPool\n else\n authCtx.pool\n let baseMetricsData\n = def\n {from = Just\n $ round . utcTimeToPOSIXSeconds\n $ fromMaybe (addUTCTime (- 86400) now) fromD,\n to = Just $ round . utcTimeToPOSIXSeconds $ fromMaybe now toD}\n result <- try @SomePostgreSqlException\n $ checkpoint (toAnnotation (respDataType, sqlQuery))\n $ case respDataType of\n DTFloat\n -> do chartData <- withResource\n pool\n \\ conn\n -> query_ conn (Query $ encodeUtf8 sqlQuery) ::\n IO [Only Double]\n pure\n baseMetricsData\n {dataFloat = fromOnly <$> listToMaybe chartData, rowsCount = 1}\n DTMetric\n -> do chartData <- withResource pool\n $ \\ conn -> query_ conn (Query $ encodeUtf8 sqlQuery)\n let chartsDataV = V.fromList chartData\n let (hdrs, groupedData, rowsCount, rpm) = pivot' chartsDataV\n pure\n baseMetricsData\n {dataset = groupedData, headers = V.cons \"timestamp\" hdrs,\n rowsCount, rowsPerMin = Just rpm,\n stats = Just $ statsTriple chartsDataV}\n DTText\n -> do chartData <- withResource pool\n $ \\ conn -> query_ conn (Query $ encodeUtf8 sqlQuery)\n pure\n baseMetricsData\n {dataText = V.fromList chartData,\n rowsCount = fromIntegral $ length chartData}\n DTJson\n -> do chartData <- withResource pool\n $ \\ conn -> query_ conn (Query $ encodeUtf8 sqlQuery)\n pure\n baseMetricsData\n {dataJSON = V.fromList chartData,\n rowsCount = fromIntegral $ length chartData}\n pure result" ▫︎ Perhaps: "do let pool\n = case dbSource of\n Just \"postgres\" -> authCtx.pool\n Just \"timefusion\" -> authCtx.timefusionPgPool\n _ -> if authCtx.env.enableTimefusionReads then\n authCtx.timefusionPgPool\n else\n authCtx.pool\n let baseMetricsData\n = def\n {from = Just\n $ round . utcTimeToPOSIXSeconds\n $ fromMaybe (addUTCTime (- 86400) now) fromD,\n to = Just $ round . utcTimeToPOSIXSeconds $ fromMaybe now toD}\n try @SomePostgreSqlException\n $ checkpoint (toAnnotation (respDataType, sqlQuery))\n $ case respDataType of\n DTFloat\n -> do chartData <- withResource\n pool\n \\ conn\n -> query_ conn (Query $ encodeUtf8 sqlQuery) ::\n IO [Only Double]\n pure\n baseMetricsData\n {dataFloat = fromOnly <$> listToMaybe chartData, rowsCount = 1}\n DTMetric\n -> do chartData <- withResource pool\n $ \\ conn -> query_ conn (Query $ encodeUtf8 sqlQuery)\n let chartsDataV = V.fromList chartData\n let (hdrs, groupedData, rowsCount, rpm) = pivot' chartsDataV\n pure\n baseMetricsData\n {dataset = groupedData, headers = V.cons \"timestamp\" hdrs,\n rowsCount, rowsPerMin = Just rpm,\n stats = Just $ statsTriple chartsDataV}\n DTText\n -> do chartData <- withResource pool\n $ \\ conn -> query_ conn (Query $ encodeUtf8 sqlQuery)\n pure\n baseMetricsData\n {dataText = V.fromList chartData,\n rowsCount = fromIntegral $ length chartData}\n DTJson\n -> do chartData <- withResource pool\n $ \\ conn -> query_ conn (Query $ encodeUtf8 sqlQuery)\n pure\n baseMetricsData\n {dataJSON = V.fromList chartData,\n rowsCount = fromIntegral $ length chartData}"

Suggestion in pastCyclesSection_ in module Pages.Settings: Use prev ▫︎ Found: "pred" ▫︎ Perhaps: "prev" ▫︎ Note: `pred` from `Prelude` is a pure function but it may throw exception. Consider using `prev` from `Relude.Extra.Enum` instead.

Suggestion in fetchRawForMerge in module Pages.Replay: Use first ▫︎ Found: "\\ (arr, raw) -> (firstEventTimestamp arr, raw)" ▫︎ Perhaps: "Data.Bifunctor.first firstEventTimestamp" ▫︎ Note: increases laziness

Suggestion in processReplayEvents in module Pages.Replay: Use <$> ▫︎ Found: "fmap concat\n $ mapM (handleChunk envCfg ctx.jobsPool) (chunkByBytes valid)" ▫︎ Perhaps: "concat\n <$> mapM (handleChunk envCfg ctx.jobsPool) (chunkByBytes valid)"

Suggestion in anomalyDetailPage in module Pages.Anomalies: Avoid lambda ▫︎ Found: "\\ msg -> renderSample (renderLogContent_ msg)" ▫︎ Perhaps: "renderSample . renderLogContent_"

Warning in processBatchPipeline in module Opentelemetry.OtlpServer: Redundant $! ▫︎ Found: "pure $! (pid, cache)" ▫︎ Perhaps: "pure (pid, cache)"

Suggestion in processBatchPipeline in module Opentelemetry.OtlpServer: Use fmap ▫︎ Found: "\\ pid'\n -> fromMaybe Projects.defaultProjectCache\n <$> Projects.projectCacheByIdIO appCtx.hasqlJobsPool pid'" ▫︎ Perhaps: "(fmap (fromMaybe Projects.defaultProjectCache)\n . Projects.projectCacheByIdIO appCtx.hasqlJobsPool)"

Suggestion in processBatchPipeline in module Opentelemetry.OtlpServer: Use <$> ▫︎ Found: "fmap HM.fromList\n $ forM\n projectIds\n \\ pid\n -> do !cache <- Cache.fetchWithCache\n appCtx.projectCache pid\n \\ pid'\n -> fromMaybe Projects.defaultProjectCache\n <$> Projects.projectCacheByIdIO appCtx.hasqlJobsPool pid'\n pure $! (pid, cache)" ▫︎ Perhaps: "(HM.fromList\n <$>\n forM\n projectIds\n \\ pid\n -> do !cache <- Cache.fetchWithCache\n appCtx.projectCache pid\n \\ pid'\n -> fromMaybe Projects.defaultProjectCache\n <$> Projects.projectCacheByIdIO appCtx.hasqlJobsPool pid'\n pure $! (pid, cache))"