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