Browse Source

qotd should work now

master
opfez 9 months ago
parent
commit
6c2333ac61
  1. 3
      Anna.hs

3
Anna.hs

@ -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

Loading…
Cancel
Save