This commit is contained in:
nek0 2024-10-29 04:51:08 +01:00
parent 26437b76be
commit 71b325b2a4

View file

@ -62,7 +62,7 @@ sendMessage msg uuid clientList = do
eResult <- try $ void $ sendBuf sock ptr (VS.length msgVector) eResult <- try $ void $ sendBuf sock ptr (VS.length msgVector)
case eResult of case eResult of
Left (_ :: IOException) -> Left (_ :: IOException) ->
putStrLn $ "cant reach client " <> show uuid putStrLn $ "can't reach client " <> show uuid
Right _ -> Right _ ->
pure () pure ()
) )