From 11c2c16835b3e8368be77ccc5b7ddf949021eccd Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Sat, 3 Jul 2010 21:26:00 +0200
Subject: Moved files around as a preliminary for architectural changes.

---
 Hsbot/Irc/Server.hs | 35 -----------------------------------
 1 file changed, 35 deletions(-)
 delete mode 100644 Hsbot/Irc/Server.hs

(limited to 'Hsbot/Irc/Server.hs')

diff --git a/Hsbot/Irc/Server.hs b/Hsbot/Irc/Server.hs
deleted file mode 100644
index 3c20e6d..0000000
--- a/Hsbot/Irc/Server.hs
+++ /dev/null
@@ -1,35 +0,0 @@
-module Hsbot.Irc.Server
-    ( initServerConnection
-    , sendIrcMsg
-    ) where
-
-import Control.Concurrent.Chan
-import Control.Monad.State
-
-import Hsbot.Irc.Config
-import Hsbot.Irc.Message
-import Hsbot.Irc.Types
-
--- | Setup a newly connected server by sending nick and join stuff
-initServerConnection :: IrcConfig -> IrcServer ()
-initServerConnection config = do
-    sendIrcMsg $ IrcMsg Nothing "NICK" [(ircConfigNickname config)]
-    sendIrcMsg $ IrcMsg Nothing "USER" [(ircConfigNickname config), "0", "*", (ircConfigRealname config)]
-    when (not . null $ ircConfigPassword config) $ do
-        sendIrcMsg $ IrcMsg Nothing "PRIVMSG" ["nickserv", "identify", (ircConfigPassword config)]
-    mapM_ joinChan (ircConfigChannels config)
-
--- | Joins a chan
-joinChan :: String -> IrcServer ()
-joinChan channel = do
-    ircServer <- get
-    let oldChannels = ircServerChannels ircServer
-    sendIrcMsg $ IrcMsg Nothing "JOIN" [channel]
-    put $ ircServer { ircServerChannels = channel : oldChannels }
-
--- | Sends an IrcMsg
-sendIrcMsg :: IrcMsg -> IrcServer ()
-sendIrcMsg ircMsg = do
-    chan <- gets ircServerChan
-    liftIO $ writeChan chan (OutIrcMsg ircMsg)
-
-- 
cgit v1.2.3