anchor.diff:      /// Make socket act as a GSSAPI client, disabling encryption.
       | GssapiClientUnencripted of principal:string * servicePrincipal:string
     
  +  /// Contains functions for configuring sockets and patterns for interogating sockets
     [<AutoOpen;CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
     module SocketOption =
  -        
  +    /// Sets the given `SocketOption` on the given `Socket`
       let setSocketOption socket option =
         match option with
         // general options
  
positive.code:                                                                   Socket.setOption socket (ZMQ.GSSAPI_SERVICE_PRINCIPAL ,servicePrincipal )
                                                                    Socket.setOption socket (ZMQ.GSSAPI_PLAINTEXT         ,true             )
  
    
      let configureSocket socket socketOptions = 
        Seq.iter (setSocketOption socket) socketOptions
    
  
negative.code: 
  open System
  
  /// Higher-level API for working with socket options
  module Options =
    /// binary unit of information
    type [<Measure>] bit
    /// abbreviation for `bit`
    type [<Measure>] b = bit
    /// 100 bits
    type [<Measure>] kilobit
    /// abbreviation for `kilobit`
    type [<Measure>] kb = kilobit
    /// standard unit of time (1/60th of a minute)
    type [<Measure>] second = FSharp.Data.UnitSystems.SI.UnitNames.second
    /// abbreviation for `second`
    type [<Measure>] s = second
    /// 1/1000th of a second
    type [<Measure>] millisecond
    /// abbreviation for `milliecond`
    type [<Measure>] ms = millisecond
    /// 8 bits
    type [<Measure>] Byte
    /// abbreviation for `Byte`
    type [<Measure>] B = Byte
    /// unit of travel from one network switch to another
    type [<Measure>] NetworkHop
    /// abbreviation for `NetworkHop`
    type [<Measure>] hop = NetworkHop
    
    /// Settable socket options
    type SocketOption =
      /// I/O thread affinity bit-mask
      | Affinity of bitmask:uint64
  