app/Main.hs

   1 module Main where
   2
   3 import Lib
   4 import qualified Network.Socket as N  -- network
   5
   6 myServer = "irc.netwichtig.de" :: String
   7 myPort   = 6667 :: N.PortNumber
   8 myChannels   = ["#nais-testing", "#nais"] :: [String]
   9 myNick   = "nais" :: String
  10
  11 main :: IO ()
  12 main = runBirch myServer myPort myNick myChannels