From 70712c43bd22c9458bbe53f408cdc4874fa51dd7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Thu, 8 May 2025 20:19:02 +0200 Subject: Remove console log output on successful operations --- src/Main.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/Main.hs b/src/Main.hs index 227e5f0..a7ba91f 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -97,13 +97,12 @@ setup = do Just h <- reloadHead globalHead res <- runExceptT $ flip runReaderT h $ updateSharedIdentity name case res of - Right _ -> JS.consoleLog $ "Name set" + Right _ -> return () Left err -> JS.consoleLog $ "Failed to set name: " <> showErebosError err messagesList <- JS.getElementById "msg_list" tzone <- getCurrentTimeZone void $ watchReceivedMessages globalHead $ \msg -> do - JS.consoleLog $ formatDirectMessage tzone $ fromStored msg li <- js_document_createElement (toJSString "li") content <- js_document_createTextNode $ toJSString $ formatDirectMessage tzone $ fromStored msg js_appendChild li content @@ -134,7 +133,7 @@ setup = do js_set_value sendText $ toJSString "" res <- runExceptT $ flip runReaderT globalHead $ sendDirectMessage pid msg case res of - Right sent -> JS.consoleLog . ("sent message: " <>) $ formatDirectMessage tzone $ fromStored sent + Right _ -> return () Left err -> JS.consoleLog $ "Failed to send message: " <> err -- cgit v1.2.3