ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-15 10:02:47 +03:00
Code Issues Packages Projects Releases Wiki Activity

Make HTTP Server more lenient.

Browse Source
This commit is contained in:
Benjamin Summers 2019-12-13 02:10:53 -08:00
parent c49e26d556
commit a1be331ac8
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkg/king/lib/Arvo/Common.hs
View File

@ -33,7 +33,7 @@ newtype ServId = ServId { unServId :: UV }
-- Http Common -----------------------------------------------------------------
data Header = Header Cord Cord
data Header = Header Cord Bytes
deriving (Eq, Ord, Show)
data ResponseHeader = ResponseHeader

4
pkg/king/lib/Vere/Http.hs
View File

@ -15,9 +15,9 @@ convertHeaders :: [HT.Header] -> [Header]
convertHeaders = fmap f
where
f (k, v) = Header (Cord $ decodeUtf8 $ CI.foldedCase k)
(Cord $ decodeUtf8 v)
(MkBytes v)
unconvertHeaders :: [Header] -> [HT.Header]
unconvertHeaders = fmap f
where
f (Header (Cord k) (Cord v)) = (CI.mk (encodeUtf8 k), (encodeUtf8 v))
f (Header (Cord k) (MkBytes v)) = (CI.mk (encodeUtf8 k), v)