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

1 files changed, 3 insertions, 3 deletions

diff --git a/HsBot.hs b/HsBot.hs
index ee88a78..71b9c6a 100644
--- a/HsBot.hs
+++ b/HsBot.hs
@@ -87,9 +87,9 @@ makeConf = makeTestConf
 
 loggMessage :: String -> Conf -> Conf
 loggMessage message conf = let l = message : (loggs conf)
-                               l' | length l > (maxLoggs conf) = l
-				  | otherwise = init l
-			    in conf { loggs = l } 
+                               l' | (length l) > (maxLoggs conf) = init l
+				  | otherwise = l
+			    in conf { loggs = l' } 
 
 printLoggs :: Conf -> IO ()
 printLoggs conf = printLoggs' $ reverse (loggs conf)