Use MonadStorage for makeSharedStateUpdate

Changelog: API: `State.makeSharedStateUpdate` uses `MonadStorage`

1 files changed, 3 insertions, 3 deletions

diff --git a/main/Test.hs b/main/Test.hs
index 9f52020..b59bd74 100644
--- a/main/Test.hs
+++ b/main/Test.hs
@@ -482,13 +482,13 @@ cmdCreateIdentity = do
     st <- asks tiStorage
     names <- asks tiParams
 
-    h <- liftIO $ do
-        Just identity <- if null names
+    h <- do
+        Just identity <- liftIO $ if null names
             then Just <$> createIdentity st Nothing Nothing
             else foldrM (\n o -> Just <$> createIdentity st (Just n) o) Nothing names
 
         shared <- case names of
-            _:_:_ -> (:[]) <$> makeSharedStateUpdate st (Just $ finalOwner identity) []
+            _:_:_ -> (: []) <$> makeSharedStateUpdate (Just $ finalOwner identity) []
             _ -> return []
 
         storeHead st $ LocalState