Commit 74b97d5c authored by Fabien Maniere's avatar Fabien Maniere

Update HAL.hs

parent 25a1e955
...@@ -11,7 +11,7 @@ import Data.Text ...@@ -11,7 +11,7 @@ import Data.Text
import HAL.Client import HAL.Client
import HAL.Doc.Corpus import HAL.Doc.Corpus
import HAL.Doc.Struct import HAL.Doc.Struct
import HAL.Utils (langAbstractS, toText) import HAL.Utils (langTitleS, langAbstractS, toText)
import Network.HTTP.Client (newManager, Request) import Network.HTTP.Client (newManager, Request)
import Network.HTTP.Client.TLS (tlsManagerSettings) import Network.HTTP.Client.TLS (tlsManagerSettings)
import Protolude import Protolude
...@@ -116,7 +116,7 @@ countResults qs = do ...@@ -116,7 +116,7 @@ countResults qs = do
requestedFields :: Maybe ISO639_1 -> Text requestedFields :: Maybe ISO639_1 -> Text
requestedFields (Just EN) = "docid,title_s,en_abstract_s,submittedDate_s,source_s,authFullName_s,authOrganism_s" requestedFields (Just EN) = "docid,title_s,en_abstract_s,submittedDate_s,source_s,authFullName_s,authOrganism_s"
requestedFields (Just lang) = "docid,title_s,en_abstract_s," <> langAbstractS lang <> ",submittedDate_s,source_s,authFullName_s,authOrganism_s" requestedFields (Just lang) = "docid," <> langTitleS lang <> "," <> langAbstractS lang <> ",submittedDate_s,source_s,authFullName_s,authOrganism_s"
requestedFields _ = requestedFields (Just EN) requestedFields _ = requestedFields (Just EN)
structFields :: Text structFields :: Text
......
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