diff options
| author | Hendrik Jaeger <git-commit@henk.geekmail.org> | 2019-10-21 18:34:41 +0200 |
|---|---|---|
| committer | Hendrik Jaeger <git-commit@henk.geekmail.org> | 2019-10-21 18:34:41 +0200 |
| commit | 5530bd9742bc73c2c6631c20c942d3ecd4b81505 (patch) | |
| tree | 15f5234c63410e27683e1b071d7263cbd233e9a8 /app/Main.hs | |
| parent | 853539c80ebe2124ff9191b48f717a4386d5faee (diff) | |
Completed first steps
Diffstat (limited to 'app/Main.hs')
| -rw-r--r-- | app/Main.hs | 8 |
1 files changed, 7 insertions, 1 deletions
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 |