Skip to content

I
istex
Commit 3888454a authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

[query] defaultOperator=AND sent to istex

parent a4a6fb6a
Hide whitespace changes
Inline Side-by-side
Showing with 4 additions and 2 deletions
src/ISTEX/Client.hs
View file @ 3888454a
......@@ -108,6 +108,7 @@ instance FromJSON ScrollResponse where
type ISTEXAPI = Search
type Search = QueryParam "output" T.Text
:> QueryParam "defaultOperator" T.Text
:> QueryParam "size" Int
:> QueryParam "q" T.Text
:> Get '[JSON] Documents
......@@ -116,9 +117,10 @@ istexProxy :: Proxy (ISTEXAPI)
istexProxy = Proxy
search :: Maybe T.Text -> Maybe Int -> Maybe T.Text -> ClientM Documents
search = client istexProxy
search = client istexProxy (Just "AND")
type SearchScroll = QueryParam "output" T.Text
:> QueryParam "defaultOperator" T.Text
:> QueryParam "scroll" T.Text
:> QueryParam "q" T.Text
:> QueryParam "scrollId" T.Text
......@@ -128,4 +130,4 @@ istexProxyScroll :: Proxy SearchScroll
istexProxyScroll = Proxy
searchScroll :: Maybe T.Text -> T.Text -> Maybe T.Text -> Maybe T.Text -> ClientM ScrollResponse
searchScroll output scroll = client istexProxyScroll output (Just scroll)
searchScroll output scroll = client istexProxyScroll output (Just "AND") (Just scroll)
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