|
|
|
@ -111,7 +111,8 @@ qotd :: String -> Net ()
@@ -111,7 +111,8 @@ qotd :: String -> Net ()
|
|
|
|
|
qotd chn = do |
|
|
|
|
handle <- liftIO $ connectTo "127.0.0.1" 1717 |
|
|
|
|
text <- liftIO $ hGetContents handle |
|
|
|
|
sendMessage chn text |
|
|
|
|
let textLines = lines text |
|
|
|
|
mapM_ (sendMessage chn) textLines |
|
|
|
|
return () |
|
|
|
|
|
|
|
|
|
-- TODO |
|
|
|
|