From 5530bd9742bc73c2c6631c20c942d3ecd4b81505 Mon Sep 17 00:00:00 2001 From: Hendrik Jaeger Date: Mon, 21 Oct 2019 18:34:41 +0200 Subject: Completed first steps --- app/Main.hs | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'app') diff --git a/app/Main.hs b/app/Main.hs index de1c1ab..46af6cf 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -1,6 +1,12 @@ module Main where import Lib +import qualified Network.Socket as N -- network + +myServer = "irc.netwichtig.de" :: String +myPort = 6667 :: N.PortNumber +myChannels = ["#shelly-testing", "#shelly"] :: [String] +myNick = "shelly" :: String main :: IO () -main = someFunc +main = runBirch myServer myPort myNick myChannels -- cgit v1.2.3