bot.hs

channels = ["#test", "#world"]

main = do
  conn <- connectTo (server bot) $ PortNumber $ fromIntegral $ 6667
  hSetBuffering conn NoBuffering
  write conn "USER" $ nick bot ++ " 8 * :" ++ nick bot
  write conn "NICK" "haskelbottt"
  write conn "JOIN" "#botwars" -- instead I want to loop through channels and pass it AND conn to `write`
  listen conn


write :: Handle -> String -> String -> IO ()
write h s t = do
  hPrintf h "%s %s\r\n" s t

joinChannel :: Handle -> String -> IO ()
joinChannel c channel =
  write c "JOIN" channel