BugFix.hs

import Web.Cookie (SetCookie,parseSetCookie,renderSetCookie)

-- | 
-- >>> let Right c = parseUrlPiece "SESSID=r2t5uvjq435r4q7ib3vtdjq120" :: Either Text SetCookie
-- >>> toUrlPiece c
-- "\"SESSID=r2t5uvjq435r4q7ib3vtdjq120\""
instance ToHttpApiData SetCookie where 
  toUrlPiece = showt . BS.toLazyByteString . renderSetCookie 
  toEncodedUrlPiece = renderSetCookie 

-- |
-- >> parseUrlPiece "SESSID=r2t5uvjq435r4q7ib3vtdjq120" :: Either Text SetCookie
-- Right (SetCookie {setCookieName = "SESSID", setCookieValue = "r2t5uvjq435r4q7ib3vtdjq120", setCookiePath = Nothing, setCookieExpires = Nothing, 
-- setCookieMaxAge = Nothing, setCookieDomain = Nothing, setCookieHttpOnly = False, setCookieSecure = False, setCookieSameSite = Nothing})
instance FromHttpApiData SetCookie where 
  parseUrlPiece = parseHeader  . encodeUtf8
  parseHeader   = Right . parseSetCookie