object :: GenParser Char st RawToken
object = do
    string S.object >> many1 trueSpace
    objectName <- stringConstant
    many trueSpace
    playerName <- stringConstant
    return $ ObjectToken objectName playerName
object :: GenParser Char st RawToken
object = do
    string S.object >> many1 trueSpace
    objectName <- stringConstant
    many trueSpace
    playerName <- stringConstant
    return $ ObjectToken objectName playerName
object = do
    string S.object >> many1 trueSpace
    objectName <- stringConstant
    many trueSpace
    playerName <- stringConstant
    return $ ObjectToken objectName playerName