Add an `updateQueryParams` function about modern-uri HOT 3 CLOSED

I'd say that the easiest way to do it is with lenses. Can you show definition of the function you want to add?

from modern-uri.

Something like this:

queryParamKey :: QueryParam -> RText 'QueryKey
queryParamKey qp =
  case qp of
    QueryFlag qk    -> qk
    QueryParam qk _ -> qk

updateURIQueryParam :: URI -> QueryParam -> URI
updateURIQueryParam uri qp = do
  let sameKey :: QueryParam -> QueryParam -> Bool
      sameKey qParam qParam' = queryParamKey qParam /= queryParamKey qParam'
  let replaceParam :: QueryParam -> [QueryParam] -> [QueryParam]
      replaceParam qParam qps = qParam : filter (sameKey qParam) qps
  uri & L.uriQuery %~ replaceParam qp

(I figured out the lenses stuff though I think this would actually add a dependency on the lens library so I assume you will want to change it)

from modern-uri.

This is really something that is best done via lenses. I'd like to try to avoid adding ad-hoc functions like this.

You can use the microlens package which has no dependencies and includes the commonly useful functions of lens.

from modern-uri.