From 1cab80953eda5547ee5ef2599a622fc8329e81ea Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 5 Aug 2025 20:42:04 +0200
Subject: Use MonadStorage for makeSharedStateUpdate

Changelog: API: `State.makeSharedStateUpdate` uses `MonadStorage`
---
 src/Erebos/Attach.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/Erebos/Attach.hs b/src/Erebos/Attach.hs
index fad6197..b7c642f 100644
--- a/src/Erebos/Attach.hs
+++ b/src/Erebos/Attach.hs
@@ -59,7 +59,7 @@ instance PairingResult AttachIdentity where
         liftIO $ mapM_ storeKey $ catMaybes [ keyFromData sec pub | sec <- keys, pub <- pkeys ]
 
         identity' <- mergeIdentity $ updateIdentity [ lsIdentity $ fromStored slocal ] identity
-        shared <- makeSharedStateUpdate st (Just owner) (lsShared $ fromStored slocal)
+        shared <- makeSharedStateUpdate (Just owner) (lsShared $ fromStored slocal)
         mstore (fromStored slocal)
             { lsIdentity = idExtData identity'
             , lsShared = [ shared ]
-- 
cgit v1.2.3