diff options
Diffstat (limited to 'src/Erebos/Network.hs')
| -rw-r--r-- | src/Erebos/Network.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Erebos/Network.hs b/src/Erebos/Network.hs index 225ba4a..3cb961d 100644 --- a/src/Erebos/Network.hs +++ b/src/Erebos/Network.hs @@ -1116,7 +1116,7 @@ runPeerServiceOn mbservice newStreams paddr peer handler = liftIO $ do putTMVar (serverServiceStates server) $ M.insert svc (SomeServiceGlobalState proxy gs') global return h' _ -> do - atomically $ logd $ "can't run service handler on peer with incomplete identity " ++ show paddr + atomically $ logd $ "can't run service " <> show (toUUID svc) <> " handler on peer with incomplete identity " ++ show paddr _ -> atomically $ do logd $ "unhandled service '" ++ show (toUUID svc) ++ "'" |