[TSD-87] Run the debugger on specific tag. (#40)

Author: ksaric

src/DataSource/Types.hs

@@ -165,7 +165,6 @@ asksDBLayer getter = do
     Config{..} <- ask
     pure $ getter cfgDBLayer
 
-
 -- TODO(ks): Move these three below to CLI!
 -- | Path to knowledgebase
 knowledgebasePath :: FilePath
@@ -446,6 +445,7 @@ data TicketTag
     | 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
+    | ToBeAnalyzed          -- ^ Ticket needs to be analyzed
     | NoKnownIssue          -- ^ Ticket had no known issue
     | NoLogAttached         -- ^ Log file not attached
 
@@ -847,5 +847,6 @@ 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 ToBeAnalyzed         = "to_be_analysed" -- https://iohk.zendesk.com/agent/admin/tags
 renderTicketStatus NoKnownIssue         = "no-known-issues"
 renderTicketStatus NoLogAttached        = "no-log-files"

src/Lib.hs

@@ -245,6 +245,7 @@ fetchAgents = do
 processTicketSafe :: TicketId -> App ()
 processTicketSafe tId = catch (void $ processTicket tId)
     -- Print and log any exceptions related to process ticket
+    -- TODO(ks): Remove IO from here, return the error.
     (\(e :: ProcessTicketExceptions) -> do
         printText <- asksIOLayer iolPrintText
         printText $ show e
@@ -256,6 +257,10 @@ processTicketSafe tId = catch (void $ processTicket tId)
 processTicket :: TicketId -> App ZendeskResponse
 processTicket tId = do
 
+    -- We first fetch the function from the configuration
+    printText           <- asksIOLayer iolPrintText
+    appendF             <- asksIOLayer iolAppendFile -- We need to remove this.
+
     -- We see 3 HTTP calls here.
     getTicketInfo       <- asksDataLayer zlGetTicketInfo
     getTicketComments   <- asksDataLayer zlGetTicketComments
@@ -272,6 +277,16 @@ processTicket tId = do
 
             postTicketComment ticketInfo zendeskResponse
 
+            -- TODO(ks): Moved back so we can run it in single-threaded mode. Requires a lot of
+            -- refactoring to run it in a multi-threaded mode.
+            let ticketId = getTicketId $ zrTicketId zendeskResponse
+            -- Append ticket result.
+            let tags = getTicketTags $ zrTags zendeskResponse
+            forM_ tags $ \tag -> do
+                let formattedTicketIdAndTag = show ticketId <> " " <> tag
+                printText formattedTicketIdAndTag
+                appendF "logs/analysis-result.log" (formattedTicketIdAndTag <> "\n")
+
             pure zendeskResponse
 
 -- | When we want to process all tickets from a specific time onwards.
@@ -334,7 +349,9 @@ fetchTickets = do
     sortedUnassignedTicketIds   <- listAndSortUnassignedTickets
 
     let allTickets = sortedTicketIds <> sortedUnassignedTicketIds
-    return allTickets
+
+    -- Anything that has a "to_be_analysed" tag
+    pure $ filter (elem (renderTicketStatus ToBeAnalyzed) . getTicketTags . tiTags) allTickets
 
 fetchAndShowTickets :: App ()
 fetchAndShowTickets = do
@@ -477,8 +494,8 @@ inspectAttachments ticketInfo attachments = do
     config          <- ask
     getAttachment   <- asksDataLayer zlGetAttachment
 
-    lastAttach <- handleMaybe . safeHead . reverse . sort $ attachments
-    att <- handleMaybe =<< getAttachment lastAttach
+    lastAttach      <- handleMaybe . safeHead . reverse . sort $ attachments
+    att             <- handleMaybe =<< getAttachment lastAttach
     inspectAttachment config ticketInfo att
   where
     handleMaybe :: Maybe a -> App a