From d1a81e08acb2fc34a2a1f72fde979fbe66dea24e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Wed, 22 May 2019 21:09:15 +0200
Subject: Simple identity name formatting

---
 src/Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Main.hs')

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
-- 
cgit v1.2.3