diff options
| author | Julien Dessaux | 2009-08-05 01:01:47 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2009-08-05 01:01:47 +0200 |
| commit | 1f6c64749d39eb31f171b7fa3a44cbe396bbf071 (patch) | |
| tree | 23caca402ad07b849661678662f748b9e5cc7355 /Hsbot/Main.hs | |
| parent | Initial import (diff) | |
| download | hsbot-1f6c64749d39eb31f171b7fa3a44cbe396bbf071.tar.gz hsbot-1f6c64749d39eb31f171b7fa3a44cbe396bbf071.tar.bz2 hsbot-1f6c64749d39eb31f171b7fa3a44cbe396bbf071.zip | |
Wrote a dynamic compilation stuff that works (unable to test reboot yet)
Diffstat (limited to 'Hsbot/Main.hs')
| -rw-r--r-- | Hsbot/Main.hs | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/Hsbot/Main.hs b/Hsbot/Main.hs new file mode 100644 index 0000000..129d2bd --- /dev/null +++ b/Hsbot/Main.hs @@ -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 + |