list :: (Entity e, FromJSON e) => String -> Maybe String -> AppM [e]
list tag mkey = do
    url <- viewURL tag mkey
    req <- buildReq url "GET" noBody
    fmap (fmap cliItem . clItems) $ httpJSON req
list :: (Entity e, FromJSON e) => String -> Maybe String -> AppM [e]
list tag mkey = do
    url <- viewURL tag mkey
    req <- buildReq url "GET" noBody
    fmap (fmap cliItem . clItems) $ httpJSON req
list tag mkey = do
    url <- viewURL tag mkey
    req <- buildReq url "GET" noBody
    fmap (fmap cliItem . clItems) $ httpJSON req