diff options
| author | Haskell Guy <haskell.guy@localhost> | 2020-05-28 12:40:39 +0200 |
|---|---|---|
| committer | Haskell Guy <haskell.guy@localhost> | 2020-05-28 12:40:39 +0200 |
| commit | 604b736a8feac6736c4e01a85e0983699ebb1b6d (patch) | |
| tree | a229d526348d38646358f5bebc546940536aaa42 /src/Ssb/Peer/RPC/Gossip.hs | |
| parent | 41cde99ec6189dbecca6803a5aa4f6f18142e8ba (diff) | |
| download | ssb-haskell-604b736a8feac6736c4e01a85e0983699ebb1b6d.tar.xz | |
Make slightly less verbose
Remove not needed printing to stdout and replace 'print's with putStrLn
to avoid surrounding output with quotation marks.
Diffstat (limited to 'src/Ssb/Peer/RPC/Gossip.hs')
| -rw-r--r-- | src/Ssb/Peer/RPC/Gossip.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |