diff --git a/lib/Web/Hikaru/Action.hs b/lib/Web/Hikaru/Action.hs index 1a3ae899632b71f4f8fc4eb8aafdeec06ee35700..c3c0b61aa558fd52f9e990d17ee2c142392c65d8 100644 --- a/lib/Web/Hikaru/Action.hs +++ b/lib/Web/Hikaru/Action.hs @@ -812,10 +812,10 @@ where -- Do not use cookies set in this way for anything else than storing -- simple user preferences. -- - setCookie :: (MonadAction m) => ByteString -> ByteString -> m () + setCookie :: (MonadAction m) => Text -> Text -> m () setCookie name value = do - setCookieEx $ defaultSetCookie { setCookieName = name - , setCookieValue = value + setCookieEx $ defaultSetCookie { setCookieName = cs name + , setCookieValue = cs value , setCookiePath = Just "/" }