Add Bot module

test/bottest.hs

@@ -0,0 +1,16 @@
+import qualified EuphApi.Bot        as E
+import qualified EuphApi.Connection as E
+
+myBotConfig :: E.BotConfig () ()
+myBotConfig = E.BotConfig
+  { E.botAddress           = "euphoria.io"
+  , E.botRoom              = "test"
+  , E.botPassword          = Nothing
+  , E.botNick              = "EuphApiTestBot"
+  , E.botHandler           = E.respondToPing
+  , E.botInfo              = ()
+  , E.botNewConnectionInfo = return ()
+  , E.botReconnectPolicy   = E.defaultReconnectPolicy
+  }
+
+main = E.runBot myBotConfig