diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-10-27 22:08:47 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-11-06 21:06:49 +0100 |
| commit | e0762612e95b0816721165c5aba6189809fcde58 (patch) | |
| tree | 57a2b7eed322086e6e19bfa652798d3dceceb6f6 /src/Erebos/Invite.hs | |
| parent | 0bb8daa7da52240a971a4ce83d97cfb62971ea78 (diff) | |
ByteString conversion classes
Diffstat (limited to 'src/Erebos/Invite.hs')
| -rw-r--r-- | src/Erebos/Invite.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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) |