Update Corpus.hs

src/HAL/Doc/Corpus.hs

@@ -7,7 +7,7 @@ import Data.Aeson
 import Data.Default
 import Data.Map.Strict qualified as Map
 import GHC.Generics
-import HAL.Utils (allLangs, langAbstractS)
+import HAL.Utils (allLangs, langTitleS, langAbstractS)
 import Data.LanguageCodes (ISO639_1(..))
 import Protolude
 import Servant.API (ToHttpApiData(..))
@@ -51,4 +51,4 @@ instance FromJSON Corpus where
     pure $ Corpus { .. }
 
 instance ToHttpApiData Corpus where
-  toUrlPiece _ = "docid,title_s,en_abstract_s,fr_abstract_s,submittedDate_s,source_s,authFullName_s,authOrganism_s,structId_i"
+  toUrlPiece _ = "docid,en_title_s,fr_title_s,en_abstract_s,fr_abstract_s,submittedDate_s,source_s,authFullName_s,authOrganism_s,structId_i"