some testing stuff

1 files changed, 4 insertions, 3 deletions

diff --git a/HsBot/Base/State.hs b/HsBot/Base/State.hs
index a0cc664..f501a16 100644
--- a/HsBot/Base/State.hs
+++ b/HsBot/Base/State.hs
@@ -5,18 +5,19 @@
 
 module HsBot.Base.State where
 
+import HsBot.Base.Database
+
 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
@@ -25,7 +26,7 @@ makeDefaultState = State {
       currentSender = "", 
       currentChannel = "",
       line = "", 
-      users = [],
+      users = []
    }
 
 stateNumUsers :: State -> Int