initial mysql support

1 files changed, 3 insertions, 2 deletions

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