mirror of
https://github.com/urbit/shrub.git
synced 2024-12-24 20:47:27 +03:00
26 lines
594 B
Haskell
26 lines
594 B
Haskell
{-|
|
|
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)
|