Run debugger 1.1 (#21)

* Update email content

* Update to v1.1

* Adjustments before the run

* Fix assignee being unassigned

Author: HirotoShioi

log-classifier.cabal

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

@@ -155,12 +155,11 @@ postTicketComment ZendeskResponse{..} = do
     let req2 = addJsonBody
                    (Ticket
                        (Comment (CommentId 0)
-                           (CommentBody $ "**Log classifier**\n\n" <> zrComment)
+                           (CommentBody zrComment)
                            []
                            zrIsPublic
                            (cfgAgentId cfg))
-                       Nothing -- If Nothing, assigned_id field will be left untouched
-                       (renderTicketStatus AnalyzedByScriptV1_0:zrTags)
+                       (renderTicketStatus AnalyzedByScriptV1_1:zrTags)
                    )
                    req1
     void $ liftIO $ apiCall (pure . encodeToLazyText) req2

src/DataSource/Types.hs

@@ -251,8 +251,6 @@ newtype CommentOuter = CommentOuter {
 data Ticket = Ticket
     { tComment  :: !Comment
     -- ^ Ticket comment
-    , tAssignee :: Maybe Integer -- Don't change the assignee
-    -- ^ Assignee of the ticket
     , tTag      :: ![Text]
     -- ^ Tags attached to ticket
     }
@@ -290,6 +288,7 @@ data TicketInfo = TicketInfo
 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
     | NoKnownIssue          -- ^ Ticket had no known issue
     | NoLogAttached         -- ^ Log file not attached
 
@@ -530,10 +529,9 @@ instance ToJSON CommentOuter where
                 ]
 
 instance ToJSON Ticket where
-    toJSON (Ticket comment assignee tags) =
+    toJSON (Ticket comment tags) =
         object  [ "ticket" .= object
                     [ "comment"     .= comment
-                    , "assignee_id" .= assignee
                     , "tags"        .= tags
                     ]
                 ]
@@ -571,5 +569,6 @@ parseComments = withObject "comments" $ \o -> o .: "comments"
 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 NoKnownIssue         = "no-known-issues"
 renderTicketStatus NoLogAttached        = "no-log-files"

src/Lib.hs

@@ -100,7 +100,7 @@ processTicket tId = do
     getTicketInfo       <- asksZendeskLayer zlGetTicketInfo
     printText           <- asksIOLayer iolPrintText
 
-    printText "Processing a ticket"
+    printText $ "Processing a ticket: " <> show (getTicketId tId)
 
     mTicketInfo         <- getTicketInfo tId
     getTicketComments   <- asksZendeskLayer zlGetTicketComments
@@ -112,7 +112,7 @@ processTicket tId = do
     whenJust zendeskResponse postTicketComment
 
     printText "Process finished, please see the following url"
-    printText $ "https://iohk.zendesk.com/agent/tickets/" <> show tId
+    printText $ "https://iohk.zendesk.com/agent/tickets/" <> show (getTicketId tId)
 
     pure zendeskResponse
 
@@ -308,8 +308,11 @@ filterAnalyzedTickets ticketsInfo =
         && isTicketBlacklisted ticketInfo
         && isTicketInGoguenTestnet ticketInfo
 
+    analyzedTags :: [Text]
+    analyzedTags = map renderTicketStatus [AnalyzedByScriptV1_0, AnalyzedByScriptV1_1]
+
     isTicketAnalyzed :: TicketInfo -> Bool
-    isTicketAnalyzed TicketInfo{..} = (renderTicketStatus AnalyzedByScriptV1_0) `notElem` (getTicketTags tiTags)
+    isTicketAnalyzed TicketInfo{..} = all (\analyzedTag -> analyzedTag `notElem` (getTicketTags tiTags)) analyzedTags
     -- ^ This is showing that something is wrong...
 
     unsolvedTicketStatus :: [TicketStatus]
@@ -320,7 +323,7 @@ filterAnalyzedTickets ticketsInfo =
 
     -- | If we have a ticket we are having issues with...
     isTicketBlacklisted :: TicketInfo -> Bool
-    isTicketBlacklisted TicketInfo{..} = tiId `notElem` [TicketId 9377,TicketId 10815]
+    isTicketBlacklisted TicketInfo{..} = tiId `notElem` [TicketId 9377,TicketId 10815, TicketId 15066]
 
     isTicketInGoguenTestnet :: TicketInfo -> Bool
     isTicketInGoguenTestnet TicketInfo{..} = "goguen_testnets" `notElem` getTicketTags tiTags

src/LogAnalysis/Classifier.hs

@@ -68,9 +68,9 @@ prettyHeader =
 prettyFooter :: TicketInfo -> Text
 prettyFooter ticketInfo =
     "\n\n" <>
-        "Please be patient since we have a large number of such requests to respond to. We will respond as soon as we can, but in the meantime, if you want to check the status of your ticket you can do so here - " <> (showURL $ TicketAgentURL $ tiId ticketInfo) <>
+        "We will respond as soon as we can, but in the meantime, if you want to check the status of your ticket you can do so here - " <> (showURL $ TicketAgentURL $ tiId ticketInfo) <>
     "\n\n" <>
-    "Please let us know if your issue is resolved. If you are still having trouble please reply back to this email and attach a new log file so that we can work with you to fix your problem." <>
+    "Please let us know if your issue is resolved." <>
     "\n\n" <>
     "Thanks, " <>
     "\n" <>
@@ -92,7 +92,7 @@ prettyFormatAnalysis as ticketInfo =
 prettyFormatNoIssues :: TicketInfo -> Text
 prettyFormatNoIssues ticketInfo =
     prettyHeader <>
-    "We have analyzed the log that you submitted and it appears that you do not have an identifiable technical issue. Please be patient while our developers analyze this issue further since we have a large number of such requests to respond to." <>
+    "We have analyzed the log that you submitted and it appears that you do not have an identifiable technical issue." <>
     prettyFooter ticketInfo
 
 prettyFormatLogReadError :: TicketInfo -> Text
@@ -106,7 +106,7 @@ prettyFormatNoLogs =
     "Dear user," <> "\n\n" <>
     "Thank you for contacting the IOHK Technical Support Desk. We apologize for the delay in responding to you." <> "\n\n" <>
     "Most of the tickets we get are related to technical issues. If you have a Technical problem with Daedalus wallet please read on. If your request is NOT related to getting technical support you can IGNORE this email." <> "\n\n" <>
-    "We have recently (May 29th) had a major update to the Daedalus software. You can see more details here https://daedaluswallet.io/release-notes/. If you are experiencing any technical difficulties please make sure you have upgraded to the latest version before submitting a request for support or submitting new logs (more on logs below)." <> "\n\n" <>
+    "On May 29th had a major update to the Daedalus software and on June 19 we had another minor update . These updates have resolved a significant number of issues for other customers. You can see more details here https://daedaluswallet.io/release-notes/. If you are experiencing any technical difficulties please make sure you have upgraded to the latest version before submitting a request for support or submitting new logs (more on logs below)." <> "\n\n" <>
     "We scan our tickets to check for known issues before responding in person. If you have a technical issue but did not submit a log file we suggest that you reply to this message and attach your log file. Log files are required for helping with the majority of technical issues." <> "\n\n" <>
 
     "Please provide more information so that we can diagnose your issue:" <> "\n\n" <>
@@ -116,7 +116,7 @@ prettyFormatNoLogs =
     "3. Describe the issue you are experiencing in detail and attach screenshots if needed. Please tell us what you were doing when the error occurred." <> "\n" <>
     "4. When did this issue occur (Date)?" <> "\n" <>
     "5. Do you have any ideas how this happened?" <> "\n" <>
-    "Please compress and attach your pub folder, it contains technical logs. There is NO sensitive data in your logs:" <> "\n\n" <>
+    "Please compress and attach your pub folder, it contains technical logs. There is NO sensitive data in your pub folder:" <> "\n\n" <>
 
     "Windows" <> "\n\n" <>
 

test/Spec.hs

@@ -4,7 +4,7 @@ import           Universum
 
 import           Test.Hspec (Spec, describe, hspec, it, pending, shouldBe)
 import           Test.Hspec.QuickCheck (modifyMaxSuccess)
-import           Test.QuickCheck (Gen, arbitrary, forAll, listOf, listOf1, property, elements)
+import           Test.QuickCheck (Gen, arbitrary, elements, forAll, listOf, listOf1, property)
 import           Test.QuickCheck.Monadic (assert, monadicIO, pre, run)
 
 import           DataSource (App, Comment (..), Config (..), IOLayer (..), TicketId (..),
@@ -76,7 +76,7 @@ listAndSortTicketsSpec =
                     forAll (listOf1 arbitrary) $ \(agents :: [User]) ->
 
                         monadicIO $ do
-                        
+
                             pre $ any (\TicketInfo{..} -> tiStatus /= TicketStatus "solved") listTickets
 
                             let stubbedZendeskLayer :: ZendeskLayer App
@@ -275,18 +275,23 @@ filterAnalyzedTicketsSpec =
                 \(ticketInfos :: [TicketInfo]) ->
                     length (filterAnalyzedTickets ticketInfos) `shouldBe` 0
 
-        it "should filter analyzed tickets" $
+        it "should filter analyzed tickets v1.0" $
             forAll (listOf $ genTicketWithFilteredTags ["analyzed-by-script-v1.0"]) $
                 \(ticketInfos :: [TicketInfo]) ->
                     length (filterAnalyzedTickets ticketInfos) `shouldBe` 0
 
+        it "should filter analyzed tickets v1.1" $
+            forAll (listOf $ genTicketWithFilteredTags ["analyzed-by-script-v1.1"]) $
+                \(ticketInfos :: [TicketInfo]) ->
+                    length (filterAnalyzedTickets ticketInfos) `shouldBe` 0
+
 genTicketWithFilteredTags :: [Text] -> Gen TicketInfo
 genTicketWithFilteredTags tagToBeFiltered = TicketInfo
     <$> arbitrary
     <*> arbitrary
     <*> arbitrary
     <*> arbitrary
-    <*> return (TicketTags tagToBeFiltered)
+    <*> return (TicketTags tagToBeFiltered) -- (hs) Want to create random list
     <*> arbitrary
 
 genTicketWithUnsolvedStatus :: Gen TicketInfo