--- a/gameServer/HWProtoNEState.hs	Thu Feb 25 15:58:44 2010 +0000
+++ b/gameServer/HWProtoNEState.hs	Thu Feb 25 18:28:33 2010 +0000
@@ -12,39 +12,39 @@
 handleCmd_NotEntered :: CmdHandler
 
 handleCmd_NotEntered clID clients _ ["NICK", newNick]
-	| not . null $ nick client = [ProtocolError "Nickname already chosen"]
-	| haveSameNick = [AnswerThisClient ["WARNING", "Nickname already in use"], ByeClient ""]
-	| illegalName newNick = [ByeClient "Illegal nickname"]
-	| otherwise =
-		ModifyClient (\c -> c{nick = newNick}) :
-		AnswerThisClient ["NICK", newNick] :
-		[CheckRegistered | clientProto client /= 0]
-	where
-		client = clients IntMap.! clID
-		haveSameNick = isJust $ find (\cl -> newNick == nick cl) $ IntMap.elems clients
+    | not . null $ nick client = [ProtocolError "Nickname already chosen"]
+    | haveSameNick = [AnswerThisClient ["WARNING", "Nickname already in use"], ByeClient ""]
+    | illegalName newNick = [ByeClient "Illegal nickname"]
+    | otherwise =
+        ModifyClient (\c -> c{nick = newNick}) :
+        AnswerThisClient ["NICK", newNick] :
+        [CheckRegistered | clientProto client /= 0]
+    where
+        client = clients IntMap.! clID
+        haveSameNick = isJust $ find (\cl -> newNick == nick cl) $ IntMap.elems clients
 
 
 handleCmd_NotEntered clID clients _ ["PROTO", protoNum]
-	| clientProto client > 0 = [ProtocolError "Protocol already known"]
-	| parsedProto == 0 = [ProtocolError "Bad number"]
-	| otherwise =
-		ModifyClient (\c -> c{clientProto = parsedProto}) :
-		AnswerThisClient ["PROTO", show parsedProto] :
-		[CheckRegistered | (not . null) (nick client)]
-	where
-		client = clients IntMap.! clID
-		parsedProto = fromMaybe 0 (maybeRead protoNum :: Maybe Word16)
+    | clientProto client > 0 = [ProtocolError "Protocol already known"]
+    | parsedProto == 0 = [ProtocolError "Bad number"]
+    | otherwise =
+        ModifyClient (\c -> c{clientProto = parsedProto}) :
+        AnswerThisClient ["PROTO", show parsedProto] :
+        [CheckRegistered | (not . null) (nick client)]
+    where
+        client = clients IntMap.! clID
+        parsedProto = fromMaybe 0 (maybeRead protoNum :: Maybe Word16)
 
 
 handleCmd_NotEntered clID clients _ ["PASSWORD", passwd] =
-	if passwd == webPassword client then
-		[ModifyClient (\cl -> cl{logonPassed = True}),
-		MoveToLobby] ++ adminNotice
-	else
-		[ByeClient "Authentication failed"]
-	where
-		client = clients IntMap.! clID
-		adminNotice = [AnswerThisClient ["ADMIN_ACCESS"] | isAdministrator client]
+    if passwd == webPassword client then
+        [ModifyClient (\cl -> cl{logonPassed = True}),
+        MoveToLobby] ++ adminNotice
+    else
+        [ByeClient "Authentication failed"]
+    where
+        client = clients IntMap.! clID
+        adminNotice = [AnswerThisClient ["ADMIN_ACCESS"] | isAdministrator client]
 
 
 --handleCmd_NotEntered _ _ _ ["DUMP"] =