anchor.diff:    sprintf """
   let getMany_%s () =
     let sql = "
  -SELECT * FROM %s.%s
  -LIMIT 500
  +SELECT TOP 500 * FROM %s.dbo.%s
   "
     use connection = connection connectionString
     use command = command connection sql
  
positive.code:   sprintf """
  let update_%s (%s : %s) =
    let sql = "
  UPDATE %s.%s
  SET
  %s
  WHERE %s = @%s;
  
negative.code: 
  let insertColumns page =
    page.Fields
    |> List.filter (fun field -> field.FieldType <> Id && field.FieldType <> ConfirmPassword)
    |> List.map (fun field -> field.AsDBColumn)
    |> List.map (pad 2)
    |> flattenWith ","
  