Add search field to tag view

This commit is contained in:
Eike Kettner
2020-01-02 20:48:23 +01:00
parent 7ba413e49f
commit 4e7315c2a9
4 changed files with 38 additions and 10 deletions

View File

@ -279,10 +279,10 @@ setCollectiveSettings flags settings receive =
-- Tags
getTags : Flags -> (Result Http.Error TagList -> msg) -> Cmd msg
getTags flags receive =
getTags : Flags -> String -> (Result Http.Error TagList -> msg) -> Cmd msg
getTags flags query receive =
Http2.authGet
{ url = flags.config.baseUrl ++ "/api/v1/sec/tag"
{ url = flags.config.baseUrl ++ "/api/v1/sec/tag?q=" ++ Url.percentEncode query
, account = getAccount flags
, expect = Http.expectJson receive Api.Model.TagList.decoder
}