git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@24 9f8f72e9-4bf4-416e-b76e-7d4203597157

1 files changed, 15 insertions, 0 deletions

diff --git a/State.hs b/State.hs
index 6076901..27fd11f 100644
--- a/State.hs
+++ b/State.hs
@@ -1,3 +1,18 @@
 module State where
 
+import List
+
+import User
+
+data State = State { 
+      channel :: String, 
+      line :: String, 
+      users :: [User]
+   } deriving (Show, Read)
+
+stateNumUsers :: State -> Int
+stateNumUsers state = length $ users state
+
+stateSortedUsers :: State -> [User]
+stateSortedUsers state = sort $ users state