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

@@ -69,8 +69,8 @@ instance FromJSON Document where
     _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]