From 6c2333ac61929e851d4a7745a1fb006c546bc50d Mon Sep 17 00:00:00 2001
From: opfez <opfez@disroot.org>
Date: Sat, 9 Oct 2021 00:28:50 +0200
Subject: [PATCH] qotd should work now

---
 Anna.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Anna.hs b/Anna.hs
index 85dd9a3..0a7b52e 100644
--- 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