From e0762612e95b0816721165c5aba6189809fcde58 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Tue, 27 Oct 2026 22:08:47 +0100 Subject: ByteString conversion classes --- src/Erebos/Invite.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Erebos/Invite.hs') diff --git a/src/Erebos/Invite.hs b/src/Erebos/Invite.hs index 69a6977..fdf90dd 100644 --- a/src/Erebos/Invite.hs +++ b/src/Erebos/Invite.hs @@ -31,6 +31,7 @@ import Data.Text qualified as T import Data.Text.Encoding import Data.Time.LocalTime +import ConvertByteString import Crypto import Erebos.Contact import Erebos.Discovery @@ -79,7 +80,7 @@ instance Storable InviteData where newtype InviteToken = InviteToken ByteString - deriving (Eq, Ord, Semigroup, Monoid, ByteArray, ByteArrayAccess) + deriving (Eq, Ord, Semigroup, Monoid, ByteArray, ByteArrayAccess, ToByteString) showInviteToken :: InviteToken -> String showInviteToken (InviteToken token) = BC.unpack (showHex token) -- cgit v1.2.3