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