diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2019-05-22 21:09:15 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2019-05-22 21:09:15 +0200 |
| commit | d1a81e08acb2fc34a2a1f72fde979fbe66dea24e (patch) | |
| tree | 280eb4b0f5782f5da541dd868a52569f1514c80b /src/Main.hs | |
| parent | b3dd410bb4ed093b74fe349d3a51a5767c76f952 (diff) | |
Simple identity name formatting
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Main.hs b/src/Main.hs index 35f5a23..e6e9d9c 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -77,14 +77,14 @@ main = do erebosHead <- loadErebosHead st let serebos = wrappedLoad (headRef erebosHead) :: Stored Erebos self = erbIdentity $ fromStored serebos - print $ fromStored self + T.putStrLn $ displayIdentity self (chanPeer, chanSvc) <- startServer bhost $ erbIdentity $ fromStored serebos void $ forkIO $ void $ forever $ do peer@Peer { peerAddress = DatagramAddress addr } <- readChan chanPeer print addr - putStrLn $ maybe "<noid>" show $ peerIdentity peer + T.putStrLn $ maybe (T.pack "<noid>") displayIdentity $ peerIdentity peer if | Just powner <- finalOwner <$> peerIdentity peer , _:_ <- peerChannels peer -> do |