diff --git a/src/Simplex/Chat.hs b/src/Simplex/Chat.hs index 53cc17e386..3547664148 100644 --- a/src/Simplex/Chat.hs +++ b/src/Simplex/Chat.hs @@ -6151,7 +6151,7 @@ getCreateActiveUser st testView = do loop Left e -> putStrLn ("database error " <> show e) >> exitFailure Right user -> do - void . withTransaction st $ \db -> runExceptT $ createNoteFolder db user >> createNoteFolder db user + void . withTransaction st $ \db -> runExceptT $ createNoteFolder db user pure user selectUser :: [User] -> IO User selectUser [user@User {userId}] = do