Include hlint as part of the category suffix.

Author: chungyc

src/AutomationDetails.hs

@@ -46,7 +46,7 @@ add ::
   Value
 add env category (Object v) = Object $ mapWithKey addToRuns v
   where
-    details = fromMaybe "" category <> "/" <> runId
+    details = maybe "" (++ "/") category <> "hlint/" <> runId
     runId = fromMaybe "" (lookup "GITHUB_RUN_ID" env)
 
     addToRuns "runs" (Array u) = Array $ fmap addToRun u

test/AutomationDetailsSpec.hs

@@ -40,7 +40,7 @@ spec = do
                 singleton "automationDetails" $
                   Object $
                     singleton "id" $
-                      String (fromString category <> "/" <> fromString runId)
+                      String (fromString category <> "/hlint/" <> fromString runId)
           )
 
     prop "adds empty category and empty run ID when not available" $
@@ -51,7 +51,7 @@ spec = do
                 singleton "automationDetails" $
                   Object $
                     singleton "id" $
-                      String "/"
+                      String "hlint/"
           )
   where
     emptySarifLog = Object $ singleton "runs" $ Array $ Vector.singleton emptyObject