[TSD-119] Update version, run debugger (#51)

Author: HirotoShioi

cabal2nix.nix

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

log-classifier.cabal

@@ -1,5 +1,5 @@
 name:                log-classifier
-version:             1.4.0.0
+version:             1.4.1.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
+    let analyzedTag = renderTicketStatus AnalyzedByScriptV1_4_1
         -- Nub so it won't post duplicate tags
         allTags    = nub $ [analyzedTag] <> getTicketTags tiTags <> getTicketTags zrTags
         -- We remove the @ToBeAnalyzed@ tag.

src/DataSource/Types.hs

@@ -441,15 +441,16 @@ data TicketInfo = TicketInfo
 -- TODO(ks): @Generic@ type migrations. Also possible to provide the version from runtime,
 -- we need to weigh these options later on.
 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
-    | 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
+    = 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
+    | 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
+    | ToBeAnalyzed            -- ^ Ticket needs to be analyzed
+    | NoKnownIssue            -- ^ Ticket had no known issue
+    | NoLogAttached           -- ^ Log file not attached
 
 newtype UserId = UserId
     { getUserId :: Int
@@ -947,11 +948,12 @@ parseComments = withObject "comments" $ \o -> o .: "comments"
 -- | Defining it's own show instance to use it as tags
 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 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"
+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 AnalyzedByScriptV1_4_1 = "analyzed-by-script-v1.4.1"
+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

@@ -620,6 +620,7 @@ filterAnalyzedTickets ticketsInfo =
                         , AnalyzedByScriptV1_2
                         , AnalyzedByScriptV1_3
                         , AnalyzedByScriptV1_4
+                        , AnalyzedByScriptV1_4_1
                         ]
 
     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 : mergedTags) === responseTags
+                in (filter (/= renderTicketStatus ToBeAnalyzed) . nub $ renderTicketStatus AnalyzedByScriptV1_4_1 : mergedTags) === responseTags
 
 
 exportZendeskDataToLocalDBSpec :: Spec