Skip to content

H
hal
Commit 74b97d5c authored by Fabien Maniere's avatar Fabien Maniere
Browse files
Options

Update HAL.hs

parent 25a1e955
Show 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