summaryrefslogtreecommitdiff
path: root/HsBot/Base/State.hs
diff options
context:
space:
mode:
Diffstat (limited to 'HsBot/Base/State.hs')
-rw-r--r--HsBot/Base/State.hs7
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