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`
---
 main/Test.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'main/Test.hs')

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
-- 
cgit v1.2.3