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/Identity.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/src/Erebos/Identity.hs b/src/Erebos/Identity.hs
index 491df6e..8c3760c 100644
--- a/src/Erebos/Identity.hs
+++ b/src/Erebos/Identity.hs
@@ -325,7 +325,7 @@ lookupProperty sel topHeads = findResult propHeads
     findResult [] = Nothing
     findResult xs = sel $ fromSigned $ minimum xs
 
-mergeIdentity :: (MonadStorage m, MonadError e m, FromErebosError e, MonadIO m) => Identity f -> m UnifiedIdentity
+mergeIdentity :: (MonadStorage m, MonadError e m, FromErebosError e) => Identity f -> m UnifiedIdentity
 mergeIdentity idt | Just idt' <- toUnifiedIdentity idt = return idt'
 mergeIdentity idt@Identity {..} = do
     (owner, ownerData) <- case idOwner_ of
@@ -335,7 +335,7 @@ mergeIdentity idt@Identity {..} = do
                                       return (Just owner, Just $ idData owner)
 
     let public = idKeyIdentity idt
-    secret <- loadKey public
+    secret <- mloadKey public
 
     unifiedBaseData <-
         case toList $ idDataF idt of
-- 
cgit v1.2.3