gameServer/EngineInteraction.hs
changeset 10017 de822cd3df3a
parent 9690 6a1748b71df2
child 10040 4ac87acbaed9
--- a/gameServer/EngineInteraction.hs	Tue Jan 21 22:38:13 2014 +0100
+++ b/gameServer/EngineInteraction.hs	Tue Jan 21 22:43:06 2014 +0100
@@ -42,7 +42,7 @@
         encode = B.pack . Base64.encode . BW.unpack . B.concat
         isLegal m = (B.length m > 1) && (flip Set.member legalMessages . B.head . B.tail $ m)
         lft = foldr l Nothing
-        l m n = let m' = B.head $ B.tail m; tst = flip Set.member in 
+        l m n = let m' = B.head $ B.tail m; tst = flip Set.member in
                       if not $ tst timedMessages m' then n
                         else if '+' /= m' then Just Nothing else Just . Just . B.pack . Base64.encode . BW.unpack $ m
         isNonEmpty = (/=) '+' . B.head . B.tail