sources: change refbibs by host

src/ISTEX.hs

@@ -16,7 +16,7 @@ getMetadataWith :: Text -> Maybe Int -> IO (Either ClientError Documents)
 getMetadataWith q n = do
   runIstexAPIClient $
     search
-    (Just "author,title,abstract,publicationDate,refBibs")
+    (Just "author,title,abstract,publicationDate,host")
     n
     (Just q)
 
@@ -41,7 +41,7 @@ getMetadataScroll q scroll scrollId page = do
     -- Prelude.putStrLn $ "[getMetadataScroll] page: " <> show page
     eRes <- runIstexScrollAPIClient $
       searchScroll
-      (Just "author,title,abstract,publicationDate,refBibs")
+      (Just "author,title,abstract,publicationDate,host")
       scroll
       (Just q)
       scrollId
@@ -58,7 +58,7 @@ getMetadataScrollProgress :: Text -> Text -> Maybe Text -> Progress -> ErrorHand
 getMetadataScrollProgress q scroll scrollId progress errorHandler = do
   eRes <- runIstexScrollAPIClient $
     searchScroll
-    (Just "author,title,abstract,publicationDate,refBibs")
+    (Just "author,title,abstract,publicationDate,host")
     scroll
     (Just q)
     scrollId

src/ISTEX/Client.hs

@@ -66,7 +66,7 @@ instance FromJSON Document where
     _document_title    <- o .:? "title"
     _document_authors  <- o .: "author" <|> pure []
     _document_abstract <- o .:? "abstract"
-    _document_sources  <- o .: "refBibs" <|> pure []
+    _document_sources  <- o .: "host" <|> pure []
     mPubDate           <- o .:? "publicationDate"
     
     pure $ Document { _document_publicationDate = parsePubDate mPubDate, .. }