anchor.diff:            HasIconRight : bool
             CustomClass : string option
             Props : IHTMLProp list
  -          IsLoading : bool }
  +          IsLoading : bool
  +          IsExpanded : bool }
           static member Empty =
               { HasIconLeft = false
                 HasIconRight = false
                 CustomClass = None
                 Props = []
  -              IsLoading = false }
  +              IsLoading = false
  +              IsExpanded = false }
   
       let internal controlView element options children =
           let parseOptions (result : Options) =
  
positive.code:             let [<Literal>] Right = "has-icons-right"
          module State =
              let [<Literal>] IsLoading = "is-loading"
  
      type Option =
          /// Add `has-icon-right` class
  
negative.code:                         [ opts.CustomClass ]
                          [ Classes.State.IsLoading, opts.IsLoading
                            Classes.HasIcon.Right, opts.HasIconRight
                            Classes.HasIcon.Left, opts.HasIconLeft
                            Classes.IsExpanded, opts.IsExpanded ]
  
          element (classes::opts.Props)
              children
  