Merge branch 'master' into config-reload

change-metrics · Jan 5, 2024 · c2ced60 · c2ced60
2 parents 4704e75 + 3a6276d
commit c2ced60
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/src/Lentille.hs b/src/Lentille.hs
@@ -113,7 +113,7 @@ data LentilleError = LentilleError UTCTime LentilleErrorKind
 data LentilleErrorKind
   = DecodeError [Text]
   | RequestError GraphQLError
-  | PageInfoError GraphQLError
+  | RateLimitInfoError GraphQLError
   | PartialErrors Value
   deriving (Show, Generic, ToJSON)
 

diff --git a/src/Lentille/GraphQL.hs b/src/Lentille/GraphQL.hs
@@ -249,7 +249,7 @@ streamFetch client@GraphClient {..} mkArgs StreamFetchOptParams {..} transformRe
       Nothing -> pure Nothing
 
     case mErr of
-      Just err -> yieldStreamError $ PageInfoError $ mkGraphQLError err
+      Just err -> yieldStreamError $ RateLimitInfoError $ mkGraphQLError err
       Nothing -> go Nothing 0
 
   go pageInfoM totalFetched = do

diff --git a/src/Macroscope/Worker.hs b/src/Macroscope/Worker.hs
@@ -130,7 +130,7 @@ processStream logFunc postFunc = go (0 :: Word) [] []
     (crawlerErrorMessage, crawlerErrorBody) = case err of
       DecodeError xs -> ("decode", encodeJSON xs)
       RequestError e -> ("graph", encodeJSON e)
-      PageInfoError e -> ("page-info", encodeJSON e)
+      RateLimitInfoError e -> ("rate-limit-info", encodeJSON e)
       PartialErrors es -> ("partial", encodeJSON es)
 
   processBatch :: [DocumentType] -> Eff es (Maybe ProcessError)