anchor.diff:              | IsRight
               | Props of IHTMLProp list
               | CustomClass of string
  +            | Modifiers of IModifier list
   
           type internal Options =
               { IsActive : bool
                 IsBoxed : bool
                 IsRight : bool
                 Props : IHTMLProp list
  -              CustomClass : string option }
  +              CustomClass : string option
  +              Modifiers : string option list }
   
               static member Empty =
                   { IsActive = false
                     IsBoxed = false
                     IsRight = false
                     Props = []
  -                  CustomClass = None }
  +                  CustomClass = None
  +                  Modifiers = [] }
   
           let internal dropdown element (options : Option list) children =
               let parseOptions (result : Options) opt =
  
positive.code:               FixedInfo = None
                IsTransparent = false
                CustomClass = None
                Props = [] }
  
      module Menu =
  
  
negative.code:             | Menu.IsActive state -> { result with IsActive = state }
              | Menu.Props props -> { result with Props = props }
              | Menu.CustomClass customClass -> { result with CustomClass = Some customClass }
              | Menu.Modifiers modifiers -> { result with Modifiers = modifiers |> parseModifiers }
  
          let opts = options |> List.fold parseOptions Menu.Options.Empty
          let classes =
              Helpers.classes Classes.Menu.Container (opts.CustomClass::opts.Modifiers)
                  [Classes.Menu.State.IsActive, opts.IsActive]
  
          div (classes::opts.Props) children
  