diff options
Diffstat (limited to 'HsBot/Base/State.hs')
| -rw-r--r-- | HsBot/Base/State.hs | 7 |
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 |
