New paste Repaste Download
  let
    loop = do
      line <- getLine
      unless (null line) $ do
        sendTextData connection (pack line)
        loop
  loop
Filename: None. Size: 143b. View raw, , hex, or download this file.

This paste expires on 2024-06-22 05:35:42.308178. Pasted through web.