[queryStrings] fix joinQueryStrings function

parent 56af9fe1
...@@ -28,9 +28,10 @@ joinQueryStrings :: Array String -> String ...@@ -28,9 +28,10 @@ joinQueryStrings :: Array String -> String
joinQueryStrings qs = joinQueryStrings qs =
case uncons qs of case uncons qs of
Nothing -> "" Nothing -> ""
Just { head, tail } -> "?" <> head <> (joinQS tail) Just { head, tail } -> "?" <> head <> (joinTail tail)
where where
joinQS ys = joinTail :: Array String -> String
joinTail ys =
case uncons ys of case uncons ys of
Nothing -> "" Nothing -> ""
Just { tail: ys } -> "&" <> (joinWith "&" ys) Just { head: h, tail: ys } -> "&" <> h <> (joinTail ys)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment