From 3bd3dbaaf6c840e05b90da8a8fd1e051cf473255 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Wed, 12 Aug 2026 21:41:28 +0200
Subject: Key handling in MonadStorage class

---
 src/Erebos/Invite.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Erebos/Invite.hs')

diff --git a/src/Erebos/Invite.hs b/src/Erebos/Invite.hs
index 5b35506..890450b 100644
--- a/src/Erebos/Invite.hs
+++ b/src/Erebos/Invite.hs
@@ -165,7 +165,7 @@ instance SharedType (Set AcceptedInvite) where
     sharedTypeID _ = mkSharedTypeID "b1ebf228-4892-476b-ba04-0c26320139b1"
 
 
-createSingleContactInvite :: MonadHead LocalState m => Text -> m Invite
+createSingleContactInvite :: (MonadHead LocalState m, MonadIO m) => Text -> m Invite
 createSingleContactInvite name = do
     time <- liftIO getZonedTime
     token <- liftIO $ getRandomBytes 32
-- 
cgit v1.2.3