hoauth2-2.6.0: src/Network/OAuth2/Experiment/Utils.hs

module Network.OAuth2.Experiment.Utils where

import Data.Bifunctor
import Data.ByteString (ByteString)
import Data.ByteString.Char8 qualified as BS8
import Data.Map.Strict (Map)
import Data.Map.Strict qualified as Map
import Data.Text.Encoding qualified as TE
import Data.Text.Lazy qualified as TL

tlToBS :: TL.Text -> ByteString
tlToBS = TE.encodeUtf8 . TL.toStrict

bs8ToLazyText :: BS8.ByteString -> TL.Text
bs8ToLazyText = TL.pack . BS8.unpack

mapsToParams :: [Map TL.Text TL.Text] -> [(ByteString, ByteString)]
mapsToParams =
  map (bimap tlToBS tlToBS)
    . Map.toList
    . Map.unions