[TSD-123] Run the debugger, 8. (#52)

Author: ksaric

log-classifier.cabal

@@ -1,5 +1,5 @@
 name:                log-classifier
-version:             1.4.1.0
+version:             1.4.2.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

@@ -211,7 +211,7 @@ postTicketComment ticketInfo zendeskResponse = do
 -- | Create response ticket
 createResponseTicket :: Integer -> TicketInfo -> ZendeskResponse -> Ticket
 createResponseTicket agentId TicketInfo{..} ZendeskResponse{..} =
-    let analyzedTag = renderTicketStatus AnalyzedByScriptV1_4_1
+    let analyzedTag = renderTicketStatus AnalyzedByScriptV1_4_2
         -- Nub so it won't post duplicate tags
         allTags    = nub $ [analyzedTag] <> getTicketTags tiTags <> getTicketTags zrTags
         -- We remove the @ToBeAnalyzed@ tag.

src/DataSource/Types.hs

@@ -448,6 +448,7 @@ data TicketTag
     | AnalyzedByScriptV1_3    -- ^ Ticket has been analyzed by the version 1.3
     | AnalyzedByScriptV1_4    -- ^ Ticket has been analyzed by the version 1.4
     | AnalyzedByScriptV1_4_1  -- ^ Ticket has been analyzed by the version 1.4.1
+    | AnalyzedByScriptV1_4_2  -- ^ Ticket has been analyzed by the version 1.4.2
     | ToBeAnalyzed            -- ^ Ticket needs to be analyzed
     | NoKnownIssue            -- ^ Ticket had no known issue
     | NoLogAttached           -- ^ Log file not attached
@@ -954,6 +955,7 @@ renderTicketStatus AnalyzedByScriptV1_2   = "analyzed-by-script-v1.2"
 renderTicketStatus AnalyzedByScriptV1_3   = "analyzed-by-script-v1.3"
 renderTicketStatus AnalyzedByScriptV1_4   = "analyzed-by-script-v1.4"
 renderTicketStatus AnalyzedByScriptV1_4_1 = "analyzed-by-script-v1.4.1"
+renderTicketStatus AnalyzedByScriptV1_4_2 = "analyzed-by-script-v1.4.2"
 renderTicketStatus ToBeAnalyzed           = "to_be_analysed" -- https://iohk.zendesk.com/agent/admin/tags
 renderTicketStatus NoKnownIssue           = "no-known-issues"
 renderTicketStatus NoLogAttached          = "no-log-files"

src/Lib.hs

@@ -621,6 +621,7 @@ filterAnalyzedTickets ticketsInfo =
                         , AnalyzedByScriptV1_3
                         , AnalyzedByScriptV1_4
                         , AnalyzedByScriptV1_4_1
+                        , AnalyzedByScriptV1_4_2
                         ]
 
     isTicketAnalyzed :: TicketInfo -> Bool

test/Spec.hs

@@ -503,7 +503,7 @@ createResponseTicketSpec =
                     responseTags        = getTicketTags $ tTag responseTicket
                 -- in summary, the response tags have the debuggers `analyzed-by-script-version` tag AND
                 -- they remove the `to_be_analysed` tag AND they are unique.
-                in (filter (/= renderTicketStatus ToBeAnalyzed) . nub $ renderTicketStatus AnalyzedByScriptV1_4_1 : mergedTags) === responseTags
+                in (filter (/= renderTicketStatus ToBeAnalyzed) . nub $ renderTicketStatus AnalyzedByScriptV1_4_2 : mergedTags) === responseTags
 
 
 exportZendeskDataToLocalDBSpec :: Spec
@@ -631,4 +631,4 @@ getAttachmentsFromCommentSpec =
             all (\att -> aContentType att `elem` zipFileContentTypes) filteredAttachments
           where
             zipFileContentTypes :: [Text]
-            zipFileContentTypes = ["application/zip", "application/x-zip-compressed"]
+            zipFileContentTypes = ["application/zip", "application/x-zip-compressed"]