|
|
@ -254,7 +254,7 @@ searchAccounts client query limit resolve = |
|
|
|
Just client -> |
|
|
|
let |
|
|
|
qs = |
|
|
|
[ ( "q", query ) |
|
|
|
[ ( "q", "@"++query ) |
|
|
|
, ( "limit", toString limit ) |
|
|
|
, ( "resolve" |
|
|
|
, if resolve then |
|
|
@ -262,11 +262,12 @@ searchAccounts client query limit resolve = |
|
|
|
else |
|
|
|
"false" |
|
|
|
) |
|
|
|
, ( "exclude_unreviewed", "false" ) |
|
|
|
] |
|
|
|
in |
|
|
|
HttpBuilder.get ApiUrl.searchAccount |
|
|
|
HttpBuilder.get ApiUrl.search |
|
|
|
|> withClient client |
|
|
|
|> withBodyDecoder (Decode.list accountDecoder) |
|
|
|
|> withBodyDecoder (searchResultsDecoder) |
|
|
|
|> withQueryParams qs |
|
|
|
|> send (MastodonEvent << AutoSearch) |
|
|
|
|
|
|
|