Use mloadKey in interactiveIdentityUpdate

1 files changed, 2 insertions, 2 deletions

diff --git a/src/Main.hs b/src/Main.hs
index 547aaca..87c3df7 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -454,12 +454,12 @@ updateSharedIdentity name = updateLocalState_ $ updateSharedState_ $ \case
         Just . toComposedIdentity <$> interactiveIdentityUpdate name identity
     Nothing -> throwOtherError "no existing shared identity"
 
-interactiveIdentityUpdate :: (Foldable f, MonadStorage m, MonadIO m, MonadError e m, FromErebosError e) => Text -> Identity f -> m UnifiedIdentity
+interactiveIdentityUpdate :: (Foldable f, MonadStorage m, MonadError e m, FromErebosError e) => Text -> Identity f -> m UnifiedIdentity
 interactiveIdentityUpdate name fidentity = do
     identity <- mergeIdentity fidentity
     if  | T.null name -> return identity
         | otherwise -> do
-            secret <- loadKey $ idKeyIdentity identity
+            secret <- mloadKey $ idKeyIdentity identity
             maybe (throwOtherError "created invalid identity") return . validateExtendedIdentity =<<
                 mstore =<< sign secret =<< mstore . ExtendedIdentityData =<< return (emptyIdentityExtension $ idData identity)
                 { idePrev = toList $ idExtDataF identity