-- load request bytestring using Wai  strictRequestBody   
postParams :: B.ByteString -> Builder
postParams r = foldl (<>) "" stringified
    where 
        ordered = sortBy (\a b -> compare (fst a) (fst b)) (parseQuery r)
        stringified = map (\(k, mv) -> byteString k <> (byteString $ maybe "" id mv)) ordered
postParams :: B.ByteString -> Builder
postParams r = foldl (<>) "" stringified
    where 
        ordered = sortBy (\a b -> compare (fst a) (fst b)) (parseQuery r)
        stringified = map (\(k, mv) -> byteString k <> (byteString $ maybe "" id mv)) ordered
postParams r = foldl (<>) "" stringified
    where 
        ordered = sortBy (\a b -> compare (fst a) (fst b)) (parseQuery r)
        stringified = map (\(k, mv) -> byteString k <> (byteString $ maybe "" id mv)) ordered