qotd should work now

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