From 3bd3dbaaf6c840e05b90da8a8fd1e051cf473255 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Wed, 12 Aug 2026 21:41:28 +0200 Subject: Key handling in MonadStorage class --- main/State.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'main/State.hs') diff --git a/main/State.hs b/main/State.hs index 0e20320..871b38c 100644 --- a/main/State.hs +++ b/main/State.hs @@ -89,7 +89,7 @@ createLocalStateHead ( ownerName : names ) = do createSingleIdentity owner name = createIdentity name (Just owner) -updateSharedIdentity :: (MonadHead LocalState m, MonadError e m, FromErebosError e) => Terminal -> m () +updateSharedIdentity :: (MonadHead LocalState m, MonadIO m, MonadError e m, FromErebosError e) => Terminal -> m () updateSharedIdentity term = updateLocalState_ $ updateSharedState_ $ \case Just identity -> do Just . toComposedIdentity <$> interactiveIdentityUpdate term identity -- cgit v1.2.3