anchor.diff:      /// Generate <a class="pagination-previous"></a>
       let previous (options: GenericOption list) children =
           let opts = genericParse options
  -        let classes = Helpers.classes Classes.Previous [opts.CustomClass] []
  +        let classes = Helpers.classes Classes.Previous (opts.CustomClass::opts.Modifiers) []
           a (classes::opts.Props) children
   
       /// Generate <a class="pagination-next"></a>
       let next (options: GenericOption list) children =
           let opts = genericParse options
  -        let classes = Helpers.classes Classes.Next [opts.CustomClass] []
  +        let classes = Helpers.classes Classes.Next (opts.CustomClass::opts.Modifiers) []
           a (classes::opts.Props) children
   
       /// Generate <li><a class="pagination-link"></a></li>
  
positive.code:             | Current of bool
              | CustomClass of string
              | Props of IHTMLProp list
  
          type internal Options =
              { IsCurrent : bool
                CustomClass : string option
                Props : IHTMLProp list }
  
              static member Empty =
                  { IsCurrent = false
                    CustomClass = None
                    Props = [] }
  
      /// Generate <nav class="pagination"></nav>
      let pagination (options: Option list) children =
  
negative.code:             | IsRounded -> { result with IsRounded = true }
              | CustomClass customClass -> { result with CustomClass = Some customClass }
              | Props props -> { result with Props = props }
              | Modifiers modifiers -> { result with Modifiers = modifiers |> parseModifiers }
  
          let opts = options |> List.fold parseOptions Options.Empty
          let classes = Helpers.classes
                          Classes.Container
                          (opts.Alignment::opts.Size::opts.CustomClass::opts.Modifiers)
                          [ Classes.Styles.IsRounded, opts.IsRounded ]
  
          nav (classes::opts.Props)
  