urbit/pkg/hs/urbit-king/lib/Urbit/Vere/Http.hs

{-|
    HTTP Driver
-}

module Urbit.Vere.Http where

import ClassyPrelude
import Urbit.Arvo
import Urbit.Noun

import qualified Data.CaseInsensitive as CI
import qualified Network.HTTP.Types   as HT

--------------------------------------------------------------------------------

convertHeaders :: [HT.Header] -> [Header]
convertHeaders = fmap f
  where
    f (k, v) = Header (Cord $ decodeUtf8 $ CI.foldedCase k)
                      (MkBytes v)

unconvertHeaders :: [Header] -> [HT.Header]
unconvertHeaders = fmap f
  where
    f (Header (Cord k) (MkBytes v)) = (CI.mk (encodeUtf8 k), v)