Add search field to equipment view

This commit is contained in:
Eike Kettner
2020-01-02 21:16:33 +01:00
parent 4e7315c2a9
commit d90afa30aa
4 changed files with 38 additions and 10 deletions

View File

@ -318,10 +318,10 @@ deleteTag flags tag receive =
-- Equipments
getEquipments : Flags -> (Result Http.Error EquipmentList -> msg) -> Cmd msg
getEquipments flags receive =
getEquipments : Flags -> String -> (Result Http.Error EquipmentList -> msg) -> Cmd msg
getEquipments flags query receive =
Http2.authGet
{ url = flags.config.baseUrl ++ "/api/v1/sec/equipment"
{ url = flags.config.baseUrl ++ "/api/v1/sec/equipment?q=" ++ Url.percentEncode query
, account = getAccount flags
, expect = Http.expectJson receive Api.Model.EquipmentList.decoder
}