wrath/shaniqua-core
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add irc, add more handlers

Browse Source
This commit is contained in:
Jon Doe
2020-09-26 21:26:42 +02:00
committed by Maciej Bonin
parent 5342dafe3f
commit 6edb35727f
6 changed files with 214 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/GypsFulvus.hs
View File

@ -14,6 +14,7 @@ import Data.Hashable
import qualified Control.Monad.Parallel as Par
import qualified Carrion.Plugin.IO.STDIO as CPISTDIO
import qualified Carrion.Plugin.TCL as TCLSIMP
import qualified Carrion.Plugin.IO.IRC.Client as IRCSIMP
import Prelude hiding ((++),putStrLn,putStr)
import Data.Text.IO(putStrLn, putStr)
import Debug.Trace
@ -89,9 +90,9 @@ runForever s cmap iopids =
amIIO <- isIOPlugin someGarbage iopids
if (amIIO) then
trySendToWorker s someGarbage cmap
else do
putStrLn $ T.pack theAutor ++ " sez:"
putStrLn $ theSewage
else return ()
putStrLn $ T.pack theAutor ++ " sez:"
putStrLn $ theSewage
trySendToWorker
:: TMVar Sewer -> Sewage -> TMVar CommandMap -> IO ()
@ -151,6 +152,8 @@ stdioPlugName = "STDIO haskeline"
tclPlugName :: T.Text
tclPlugName = "TCL-Simple"
ircPlugName :: T.Text
ircPlugName = "IRC-Simple"
execMain :: IO ()
execMain = do
@ -162,6 +165,9 @@ execMain = do
tryRegisterPlugin newSewer stdioPlugName CPISTDIO.initPlugin CPISTDIO.tellCommands
atomically $ registerCommands commandMap stdioPlugName CPISTDIO.tellCommands
atomically $ regiop stdioPlugName iopids
tryRegisterPlugin newSewer ircPlugName IRCSIMP.initPlugin IRCSIMP.tellCommands
atomically $ registerCommands commandMap ircPlugName IRCSIMP.tellCommands
atomically $ regiop ircPlugName iopids
tryRegisterPlugin newSewer tclPlugName TCLSIMP.initPlugin TCLSIMP.tellCommands
atomically $ registerCommands commandMap tclPlugName TCLSIMP.tellCommands
let myTIDs = []