anchor.diff:  
           input
               [ yield classBaseList
  -                (Helpers.generateClassName Classes.Slider.Container [ opts.Level; opts.Size; ])
  -                 [ Classes.Slider.IsCircle, opts.IsCircle
  +                (Helpers.generateClassName Classes.Slider [ opts.Level; opts.Size; ])
  +                 [ Classes.IsCircle, opts.IsCircle
                      opts.CustomClass.Value, opts.CustomClass.IsSome ] :> IHTMLProp
                 if opts.OnChange.IsSome then
                   yield DOMAttr.OnChange opts.OnChange.Value :> IHTMLProp
  
positive.code: module Slider =
  
      module Classes =
  
          module Slider =
              let [<Literal>] Container  = "slider "
              let [<Literal>] IsCircle = "is-circle"
              let [<Literal>] IsFullwidth = "is-fullwidth"
  
  
negative.code:             | IsSmall -> Bulma.Modifiers.Size.IsSmall
              | IsMedium -> Bulma.Modifiers.Size.IsMedium
              | IsLarge -> Bulma.Modifiers.Size.IsLarge
              | IsFullWidth -> Classes.IsFullwidth
              | ISize.Nothing -> ""
  
          let ofStyles style =
              match style with
              | IsCircle -> Classes.IsCircle
              | value -> failwithf "%A isn't a valid style value" value
  
  
  