From bbb1bc28fe10f1b1fdc433ecf9502e2821f024f8 Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Sat, 15 Oct 2011 23:04:49 +0200
Subject: initial mysql support

---
 HsBot/Base/State.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'HsBot/Base/State.hs')

diff --git a/HsBot/Base/State.hs b/HsBot/Base/State.hs
index 9c38e42..a0cc664 100644
--- a/HsBot/Base/State.hs
+++ b/HsBot/Base/State.hs
@@ -9,13 +9,14 @@ import qualified Data.Map as M
 
 import List
 import HsBot.IRC.User
+import HsBot.Base.Database
 
 data State = State { 
       isReady :: Bool,
       currentSender :: String,
       currentChannel :: String, 
       line :: String, 
-      users :: [User]
+      users :: [User],
    } deriving (Show, Read)
 
 makeDefaultState :: State
@@ -24,7 +25,7 @@ makeDefaultState = State {
       currentSender = "", 
       currentChannel = "",
       line = "", 
-      users = []
+      users = [],
    }
 
 stateNumUsers :: State -> Int
-- 
cgit v1.2.3