Close all OracleParameters in Soma

gistfile1.fs

  member this.SetupCommand (ps:PreparedStatement) (command:DbCommand) =
    command.CommandText <- ps.Text
    let dbParams =
      ps.Parameters
      |> List.map (fun param ->
        let dbParam = command.CreateParameter()
        dialect.SetupDbParameter(param, dbParam)
        dbParam )
      |> List.toArray
    command.Parameters.AddRange(dbParams)
    let disposableParams =
      dbParams
      |> Seq.map (fun dbParam -> dbParam :> obj)
      |> Seq.filter (fun obj -> obj :? IDisposable)
      |> Seq.cast<IDisposable>
      |> Seq.toArray
    { new IDisposable with
      member this.Dispose() = 
        disposableParams
        |> Array.iter (fun d -> d.Dispose() )
        GC.SuppressFinalize(this) }