anchor.diff:      parameters |> Seq.iter addParam
       cmd
   
  -let inferParameterDbType (p: string * obj) = 
  +let internal inferParameterDbType (p: string * obj) = 
       fst p, Unchecked.defaultof<DbType>, snd p
   
   let inferParameterDbTypes (p: (string * obj) list) = 
  
positive.code:         let handler = proc types []
          unbox (FSharpValue.MakeFunction(typeof<'a>, handler))
  
  let sqlProcessor (conn: #IDbConnection) (sql: string, values: obj list) =
      let stripFormatting s =
          let i = ref -1
          let eval (rxMatch: Match) =
  
negative.code: 
  let writeOption = 
      function
      | None -> box DBNull.Value
      | Some x -> box x
  
  let findOne mapper query id =
  