From b7098b2f0954944d80abacc4a04dd62368a03902 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jan=20Hamal=20Dvo=C5=99=C3=A1k?= <mordae@anilinux.org> Date: Wed, 8 May 2019 00:48:07 +0200 Subject: [PATCH] Use Text for the basic setCookie function MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Jan Hamal Dvořák <mordae@anilinux.org> --- lib/Web/Hikaru/Action.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/Web/Hikaru/Action.hs b/lib/Web/Hikaru/Action.hs index 1a3ae89..c3c0b61 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 "/" } -- GitLab