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