Commit b12e7618 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[FIX] parameters order

parent 3888454a
......@@ -107,8 +107,8 @@ instance FromJSON ScrollResponse where
type ISTEXAPI = Search
type Search = QueryParam "output" T.Text
:> QueryParam "defaultOperator" T.Text
type Search = QueryParam "defaultOperator" T.Text
:> QueryParam "output" T.Text
:> QueryParam "size" Int
:> QueryParam "q" T.Text
:> Get '[JSON] Documents
......@@ -119,8 +119,8 @@ istexProxy = Proxy
search :: Maybe T.Text -> Maybe Int -> Maybe T.Text -> ClientM Documents
search = client istexProxy (Just "AND")
type SearchScroll = QueryParam "output" T.Text
:> QueryParam "defaultOperator" T.Text
type SearchScroll = QueryParam "defaultOperator" T.Text
:> QueryParam "output" T.Text
:> QueryParam "scroll" T.Text
:> QueryParam "q" T.Text
:> QueryParam "scrollId" T.Text
......@@ -130,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 "AND") (Just scroll)
searchScroll output scroll = client istexProxyScroll (Just "AND") output (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