anchor.diff:    let search = searchHowToClause how value
     let sql =
       sprintf "SELECT * FROM %s.%s
  -WHERE lower(%s) LIKE lower(:search)
  +WHERE lower(%s) LIKE lower(@search)
   LIMIT 500" field
   
     use connection = connection connectionString
  
positive.code: let authenticate (%s : %s) =
    let sql = "
  SELECT * FROM %s.Users
  WHERE email = :email
  "
    use connection = connection connectionString
    use command = command connection sql
  
negative.code:   let format field =
      if field.FieldType = Id
      then "DEFAULT"
      else sprintf "@%s" field.AsDBColumn
  
    page.Fields
    |> List.filter (fun field -> field.FieldType <> ConfirmPassword)
  