Commit 45940961 authored by Fabien Manière's avatar Fabien Manière

sources: change refbibs by host

parent 9b1bd17f
...@@ -16,7 +16,7 @@ getMetadataWith :: Text -> Maybe Int -> IO (Either ClientError Documents) ...@@ -16,7 +16,7 @@ getMetadataWith :: Text -> Maybe Int -> IO (Either ClientError Documents)
getMetadataWith q n = do getMetadataWith q n = do
runIstexAPIClient $ runIstexAPIClient $
search search
(Just "author,title,abstract,publicationDate,refBibs") (Just "author,title,abstract,publicationDate,host")
n n
(Just q) (Just q)
...@@ -41,7 +41,7 @@ getMetadataScroll q scroll scrollId page = do ...@@ -41,7 +41,7 @@ getMetadataScroll q scroll scrollId page = do
-- Prelude.putStrLn $ "[getMetadataScroll] page: " <> show page -- Prelude.putStrLn $ "[getMetadataScroll] page: " <> show page
eRes <- runIstexScrollAPIClient $ eRes <- runIstexScrollAPIClient $
searchScroll searchScroll
(Just "author,title,abstract,publicationDate,refBibs") (Just "author,title,abstract,publicationDate,host")
scroll scroll
(Just q) (Just q)
scrollId scrollId
...@@ -58,7 +58,7 @@ getMetadataScrollProgress :: Text -> Text -> Maybe Text -> Progress -> ErrorHand ...@@ -58,7 +58,7 @@ getMetadataScrollProgress :: Text -> Text -> Maybe Text -> Progress -> ErrorHand
getMetadataScrollProgress q scroll scrollId progress errorHandler = do getMetadataScrollProgress q scroll scrollId progress errorHandler = do
eRes <- runIstexScrollAPIClient $ eRes <- runIstexScrollAPIClient $
searchScroll searchScroll
(Just "author,title,abstract,publicationDate,refBibs") (Just "author,title,abstract,publicationDate,host")
scroll scroll
(Just q) (Just q)
scrollId scrollId
......
...@@ -66,7 +66,7 @@ instance FromJSON Document where ...@@ -66,7 +66,7 @@ instance FromJSON Document where
_document_title <- o .:? "title" _document_title <- o .:? "title"
_document_authors <- o .: "author" <|> pure [] _document_authors <- o .: "author" <|> pure []
_document_abstract <- o .:? "abstract" _document_abstract <- o .:? "abstract"
_document_sources <- o .: "refBibs" <|> pure [] _document_sources <- o .: "host" <|> pure []
mPubDate <- o .:? "publicationDate" mPubDate <- o .:? "publicationDate"
pure $ Document { _document_publicationDate = parsePubDate mPubDate, .. } pure $ Document { _document_publicationDate = parsePubDate mPubDate, .. }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment