gistfile1.fs

type FixBadUseOfCountRewriter(model:SemanticModel, visitIntoStructuredTrivia) = 
    inherit SyntaxRewriter(visitIntoStructuredTrivia)

    override visitor.VisitBinaryExpression node = 
        match (isBadUseOfCount node model) with
        | Some(memberAccess) -> 
            let any = 
                (SyntaxKind.MemberAccessExpression, memberAccess.Expression, Syntax.IdentifierName("Any"))
                |> Syntax.MemberAccessExpression|> Syntax.InvocationExpression
            any :> SyntaxNode
        | None -> base.VisitBinaryExpression node