From 74bbc61e4dd44569d7f6b5eaa1b97cd00685cfc9 Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Sat, 15 Oct 2011 23:52:02 +0200
Subject: some testing stuff

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

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

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
-- 
cgit v1.2.3