From 604b736a8feac6736c4e01a85e0983699ebb1b6d Mon Sep 17 00:00:00 2001 From: Haskell Guy Date: Thu, 28 May 2020 12:40:39 +0200 Subject: Make slightly less verbose Remove not needed printing to stdout and replace 'print's with putStrLn to avoid surrounding output with quotation marks. --- src/Ssb/Peer/RPC/Gossip.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Ssb/Peer/RPC/Gossip.hs') diff --git a/src/Ssb/Peer/RPC/Gossip.hs b/src/Ssb/Peer/RPC/Gossip.hs index b97e4a4..80e1aac 100644 --- a/src/Ssb/Peer/RPC/Gossip.hs +++ b/src/Ssb/Peer/RPC/Gossip.hs @@ -115,7 +115,7 @@ writeFeed stream (Feed.Feed _ msgs) = do (\msg -> do let msg' = Feed.encodeJSONVerifiableMessage msg err <- RPC.writeStream stream def (RPC.JSONPayload msg') - either (\err -> print err) (\_ -> return ()) err + either (\err -> putStrLn err) (\_ -> return ()) err ) instance ToJSON a => RPC.Handler (Gossiper a) where -- cgit v1.2.3