qotd should work now

2021-10-09 00:28:50 +02:00 · 2021-10-09 00:28:50 +02:00 · 6c2333ac61
parent 55d17402cb
commit 6c2333ac61
1 changed files with 2 additions and 1 deletions
--- a/Anna.hs
+++ b/Anna.hs
@ -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