diff options
Diffstat (limited to 'main')
| -rw-r--r-- | main/Test.hs | 6 |
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 |