opfez
/
anna2
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

qotd should work now

master
opfez 2021-10-09 00:28:50 +02:00
parent 55d17402cb
commit 6c2333ac61
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Anna.hs
View File

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