Spot the antipattern

foo.fsx

module Client =
  
    let connectionString = Environment.GetEnvironmentVariable("CONN")
    let session = new Session(connectionString)

    let doA (a : A) = session.Send a
    let doB (b : B) = session.Send b


type Client(connectionString : string) =
    let session = new Session(connectionString)
    member __.DoA(a : A) = session.Send a
    member __.DoB(b : B) = session.Send b

type Client =
  { DoA: A -> unit
    DoB: B -> unit }

module Client = 
  let create (connectionString : string) =
    let session = new Session(connectionString)
    { DoA = session.Send
      DoB = session.Send }

let doWithSession connectionString doIt =
  use session = new Session(connectionString)
  doIt (session :> ISessionForConsumer)

type SessionHandler(connectionString) =
   member x.ManageSession doIt =
     doWithSession connectionString doIt