author | wenzelm |
Wed, 19 Dec 2018 13:07:02 +0100 | |
changeset 69481 | 3b89c6b723a2 |
parent 69479 | 4880575ec8a1 (current diff) |
parent 69480 | 2cc9212342a7 (diff) |
child 69482 | 186b03abb764 |
--- a/src/Tools/Haskell/Haskell.thy Wed Dec 19 08:16:42 2018 +0000 +++ b/src/Tools/Haskell/Haskell.thy Wed Dec 19 13:07:02 2018 +0100 @@ -1803,7 +1803,7 @@ loop :: Socket -> ByteString -> IO () loop server_socket password = forever $ do - (connection, peer) <- Socket.accept server_socket + (connection, _) <- Socket.accept server_socket Standard_Thread.fork_finally (do line <- Byte_Message.read_line connection