diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-08-12 21:41:28 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-08-14 22:08:15 +0200 |
| commit | 3bd3dbaaf6c840e05b90da8a8fd1e051cf473255 (patch) | |
| tree | 53372e6abc58abf09f0277a7729b0cf038001032 /main | |
| parent | 127036f4f7fc295b5815503f4f27e4f2827e02f1 (diff) | |
Key handling in MonadStorage class
Diffstat (limited to 'main')
| -rw-r--r-- | main/State.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |