anchor.diff:          infixl "<>" <| binary NotEqual
           infixlc isOperator
           ternaryolc similarityOperator (kw "ESCAPE")
  -        postfix (kw "ISNULL") <| unary IsNull
  +        postfix (kw "ISNULL") <| unary IsNull // Remove SQLite stuff?
           postfixc notNullOperator
           postfixc inOperator
           ternarylc betweenOperator (kw "AND")
  
positive.code:             Info = ()
          }
  
  let private raiseTrigger =
      %% kw "RAISE"
      -- '('
      -- ws
  
negative.code: 
  let private notNullOperator =
      %[
          kw "NOTNULL" // Remove SQLite stuff?
          %% kw "NOT" -? kw "NULL" -|> ()
      ]
      |> withSource
  