Wrote a dynamic compilation stuff that works (unable to test reboot yet)
This commit is contained in:
parent
ea607ba1b1
commit
1f6c64749d
7 changed files with 183 additions and 0 deletions
23
Hsbot/Main.hs
Normal file
23
Hsbot/Main.hs
Normal file
|
@ -0,0 +1,23 @@
|
|||
module Hsbot.Main
|
||||
(imain
|
||||
) where
|
||||
|
||||
import Network
|
||||
import System.IO
|
||||
import System.Plugins
|
||||
|
||||
import qualified Config as C
|
||||
import Hsbot.Core
|
||||
import Hsbot.IRC
|
||||
|
||||
type Reboot = (Module -> Bot -> IO ())
|
||||
|
||||
-- | Bot's first main entry point
|
||||
imain :: Module -> Reboot -> IO ()
|
||||
imain modul' reboot = imain' modul' reboot newbot
|
||||
|
||||
-- | Bot's main entry point
|
||||
imain' :: Module -> Reboot -> Bot -> IO ()
|
||||
imain' modul' reboot bot = do
|
||||
print C.config
|
||||
|
Reference in a new issue