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

1 files changed, 5 insertions, 2 deletions

diff --git a/HsBot.hs b/HsBot.hs
index 71b9c6a..aa3f812 100644
--- a/HsBot.hs
+++ b/HsBot.hs
@@ -32,14 +32,17 @@ instance Ord Karma where
 
 data Conf = Conf { line :: String, loggs :: [String], maxLoggs :: Int, users :: [User], karmas :: [Karma] } deriving (Show, Read)
 
-data User =  User { userName :: String, userPts :: Int	} deriving (Show, Read) 
+data User = User { userName :: String, userPts :: Int } deriving (Show, Read) 
 
 instance Eq User where x == y = (userPts x) == (userPts y)
 
 instance Ord User where
 	x < y = (userPts x) < (userPts y)
 	x > y = (userPts x) > (userPts y)
-	x >= y = not (x < y)
+	x >= y = not (maxLoggMessages :: Int
+maxLoggMessages = 10
+
+x < y)
 	x <= y = not (x > y)
 
 class Render a where render :: a -> String