anchor.diff:      let dispose c = logf "disposing connection (but not really) %s" id
       create,dispose,None
   
  +/// Creates a <see cref="ConnectionManager"/> with an externally-owned transaction
   let withTransaction (tx: IDbTransaction): ConnectionManager =
       let id = Guid.NewGuid().ToString()
       let create() = 
  
positive.code:         | x -> x
      cmd.Parameters.Add par |> ignore
  
  let createCommand (cmgr: ConnectionManager) = 
      let create,dispose,tx = cmgr
      let conn = create()
  
negative.code: 
  /// Gets all field names from a record type formatted with an alias.
  /// E.g. with a field "id" and alias "a", returns "a.id a_id"
  let recordFieldsAlias ty = 
      let fields = recordFields ty
      fun alias ->
          fields |> fieldAlias alias |> sjoin ","
  