[TSD-74] Run debugger v1.2 (#31)

Author: HirotoShioi

log-classifier.cabal

@@ -1,5 +1,5 @@
 name:                log-classifier
-version:             1.1.0.0
+version:             1.2.0.0
 synopsis:            Log classifier for a Cardano node
 description:         Please see the README
 homepage:            https://github.com/input-output-hk/log-classifier#readme

src/DataSource/Http.hs

@@ -226,7 +226,7 @@ postTicketComment ticketInfo zendeskResponse = do
 -- | Create response ticket
 createResponseTicket :: Integer -> TicketInfo -> ZendeskResponse -> Ticket
 createResponseTicket agentId TicketInfo{..} ZendeskResponse{..} =
-    let analyzedTag = renderTicketStatus AnalyzedByScriptV1_1
+    let analyzedTag = renderTicketStatus AnalyzedByScriptV1_2
     -- Nub so it won't post duplicate tags
         mergedTags = TicketTags . nub $ [analyzedTag] <> getTicketTags tiTags <> getTicketTags zrTags
     in (Ticket

src/DataSource/Types.hs

@@ -406,6 +406,7 @@ data TicketTag
     = AnalyzedByScript      -- ^ Ticket has been analyzed
     | AnalyzedByScriptV1_0  -- ^ Ticket has been analyzed by the version 1.0
     | AnalyzedByScriptV1_1  -- ^ Ticket has been analyzed by the version 1.1
+    | AnalyzedByScriptV1_2  -- ^ Ticket has been analyzed by the version 1.2
     | NoKnownIssue          -- ^ Ticket had no known issue
     | NoLogAttached         -- ^ Log file not attached
 
@@ -806,6 +807,7 @@ renderTicketStatus :: TicketTag -> Text
 renderTicketStatus AnalyzedByScript     = "analyzed-by-script"
 renderTicketStatus AnalyzedByScriptV1_0 = "analyzed-by-script-v1.0"
 renderTicketStatus AnalyzedByScriptV1_1 = "analyzed-by-script-v1.1"
+renderTicketStatus AnalyzedByScriptV1_2 = "analyzed-by-script-v1.2"
 renderTicketStatus NoKnownIssue         = "no-known-issues"
 renderTicketStatus NoLogAttached        = "no-log-files"
 

src/Lib.hs

@@ -546,7 +546,7 @@ filterAnalyzedTickets ticketsInfo =
         && isTicketInGoguenTestnet ticketInfo
 
     analyzedTags :: [Text]
-    analyzedTags = map renderTicketStatus [AnalyzedByScriptV1_0, AnalyzedByScriptV1_1]
+    analyzedTags = map renderTicketStatus [AnalyzedByScriptV1_0, AnalyzedByScriptV1_1, AnalyzedByScriptV1_2]
 
     isTicketAnalyzed :: TicketInfo -> Bool
     isTicketAnalyzed TicketInfo{..} = all (\analyzedTag -> analyzedTag `notElem` (getTicketTags tiTags)) analyzedTags