diff options
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) |