lint

2026-05-14 18:25:08 +00:00 · 2023-07-03 17:43:56 +01:00
parent 54dc8d42e7
commit 75fe28a8a6
1 changed files with 1 additions and 1 deletions
@@ -1467,7 +1467,7 @@ instance StrEncoding AgentErrorType where
      <|> "AGENT QUEUE " *> (AGENT . A_QUEUE <$> parseRead A.takeByteString)
      <|> "AGENT " *> (AGENT <$> parseRead1)
      <|> "INTERNAL " *> (INTERNAL <$> parseRead A.takeByteString)
-      <|> "INACTIVE" *> pure INACTIVE
+      <|> "INACTIVE" $> INACTIVE
    where
      textP = T.unpack . safeDecodeUtf8 <$> A.takeTill (== ' ')
  strEncode = \case