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