[TSD-98] Run debugger (#48)

Author: HirotoShioi

cabal2nix.nix

@@ -6,7 +6,7 @@
 }:
 mkDerivation {
   pname = "log-classifier";
-  version = "1.3.0.0";
+  version = "1.4.0.0";
   src = ./.;
   isLibrary = true;
   isExecutable = true;

log-classifier.cabal

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

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

src/DataSource/Types.hs

@@ -446,6 +446,7 @@ data TicketTag
     | AnalyzedByScriptV1_1  -- ^ Ticket has been analyzed by the version 1.1
     | AnalyzedByScriptV1_2  -- ^ Ticket has been analyzed by the version 1.2
     | AnalyzedByScriptV1_3  -- ^ Ticket has been analyzed by the version 1.3
+    | AnalyzedByScriptV1_4  -- ^ Ticket has been analyzed by the version 1.4
     | ToBeAnalyzed          -- ^ Ticket needs to be analyzed
     | NoKnownIssue          -- ^ Ticket had no known issue
     | NoLogAttached         -- ^ Log file not attached
@@ -949,6 +950,7 @@ 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 AnalyzedByScriptV1_3 = "analyzed-by-script-v1.3"
+renderTicketStatus AnalyzedByScriptV1_4 = "analyzed-by-script-v1.4"
 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

@@ -617,6 +617,7 @@ filterAnalyzedTickets ticketsInfo =
                         , AnalyzedByScriptV1_1
                         , AnalyzedByScriptV1_2
                         , AnalyzedByScriptV1_3
+                        , AnalyzedByScriptV1_4
                         ]
 
     isTicketAnalyzed :: TicketInfo -> Bool

test/Spec.hs

@@ -502,7 +502,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_3 : mergedTags) === responseTags
+                in (filter (/= renderTicketStatus ToBeAnalyzed) . nub $ renderTicketStatus AnalyzedByScriptV1_4 : mergedTags) === responseTags
 
 
 exportZendeskDataToLocalDBSpec :: Spec