Skip to content

H
hal
You need to sign in or sign up before continuing.
Commit 74b97d5c authored by Fabien Maniere's avatar Fabien Maniere
Browse files
Options

Update HAL.hs

parent 25a1e955
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
src/HAL.hs
View file @ 74b97d5c
......@@ -11,7 +11,7 @@ import Data.Text
import HAL.Client
import HAL.Doc.Corpus
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.TLS (tlsManagerSettings)
import Protolude
......@@ -116,7 +116,7 @@ countResults qs = do
requestedFields :: Maybe ISO639_1 -> Text
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)
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