Default max page number

src/ISTEX.hs

@@ -29,7 +29,7 @@ runIstexScrollAPIClient cmd = do
   runClientM cmd (mkClientEnv manager' $ BaseUrl Https "api.istex.fr" 443 "document")
 
 maxScrollPages :: Int
-maxScrollPages = 10
+maxScrollPages = 1000
 
 getMetadataScroll :: Text -> Text -> Maybe Text -> Int -> IO (Either ClientError Documents)
 getMetadataScroll q scroll scrollId page = do

src/ISTEX/Client.hs

@@ -62,15 +62,15 @@ L.makeLenses ''Document
 
 instance FromJSON Document where
   parseJSON (Object o) = do
-    _document_id <- o .: "id"
-    _document_title <- o .:? "title"
-    _document_authors <- o .: "author" <|> pure []
+    _document_id       <- o .: "id"
+    _document_title    <- o .:? "title"
+    _document_authors  <- o .: "author" <|> pure []
     _document_abstract <- o .:? "abstract"
-    _document_sources <- o .: "refBibs" <|> pure []
-    mPubDate <- o .:? "publicationDate"
+    _document_sources  <- o .: "refBibs" <|> pure []
+    mPubDate           <- o .:? "publicationDate"
     
-    pure $ Document { _document_publicationDate = parsePubDate mPubDate
-                    , .. }
+    pure $ Document { _document_publicationDate = parsePubDate mPubDate, .. }
+
 data Documents = Documents
   { _documents_total :: Int
   , _documents_hits  :: [Document]